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ABSTRACT 


SHUTTLE ENVIRONMENTAL AND THERMAL 
CONTROL/LIFE SUPPORT SYSTEM COMPUTER 
PROGRAM 




FREDERICK A. ELFERS & 
WILLIAM J. AYOTTE 
CONTRACT NAS 9-12411 


DECEMBER 1974 


This user's guide describes the computer programs developed to 
simulate the RSECS (Representative Shuttle Environmental Control 
System). These programs have been prepared to provide pretest 
predictions, post- test analysis and real-time problem analysis 
for RSECS test planning and evaluation. Hamilton Standard has 
provided these programs to the NASA on a magnetic tape cassette 
and on a disk device that is part of Crew Systems Division's 
WANG-2200 series computer system. 
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R) REWORD 


This report has been prepared by the Hamilton Standard Division of 
United Aircraft Corporation for the National Aeronautics and Space 
Administration’s Lyndon B. Johnson Space Center in accordance with 
the requirements of Contract NAS9-12411, Space Shuttle ECS Computer 
Program. This interim report covers the work accomplished during 
calendar year 1974. A previous report SPOZT73, "Users Manual, Space 
Shuttle Atmospheric Revitalization Subsystem/ Active Thermal Control 
Subsystem Computer Program" covered the work performed under this 
contract during calendar year 1973. 

Appreciation is expressed to the NASA JSC Technical Monitor, Mr. 

James Jaaxs, for his support during the conduct of this program. 

The Hamilton Standard technical personnel responsible for the work 
described herein are Mr. Frederick A. Elfers and Mr. William J. 
Ayotte. The program manager is Mr. Fred H. Greenwood. ’ 

It is expected that this contract will be continued during calendar 
year 1975. Another report covering this additional work will be pub- 
lished in December, 1975. 
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INTRODUCTION 


To fulfill the requirements of Contract NAS 9-12411, for calen- 
dar year 1974, Hamilton Standard has developed the computer pro- 
grams listed below. These programs were written to support the 
RSECS (Representative Shuttle Environmental Control System) test 
program presently being conducted. 

Q RSECS — Calculates a steady state heat balance for a com- 
bined RSECS ARS (Air Revitalization Subsystem) gas 
and water coolant loop system. Required input data 
consists of RSECS heat loads, flow rates and con- 
troller settings, and GSE (Ground Support Equipment) 
flow rate and inlet temperature. 

0 RSECS2 - Draws flow charts of RSECS air loop and water loop. 

This program is used in conjunction with program 
"RSECS". 

• "350-M fix" - Analyzes 350-M heat exchanger test data. Calcu- 

lates heat loads and heat transfer coefficients for 
the heat exchanger. Required input consists of oper- 
ating temperatures and flow rates at the heat ex- 
changer. 

0 CONDEX -Calculates 350— M RSECS cabin heat exchanger perfor- 
mance using measured inlet air conditions of temper- 
ature and dew point, and inlet coolant conditions of 
temperature and flow. Used to predict results of 
heat exchanger tests. 

• "ARS DP" - Calculates the corrected pressure drop of the Ham- 

ilton Standard supplied RSECS ARS gas loop equip- 
ment. The calculations are detailed to the package 
level. Required input data includes the total air 
flow rate, and the number of RS-11 fans operating. 

#"PL0T n - Generalized plot program used to produce plots of 

results of RSECS analysis or any other desired data, 
using a WANG 2200 flat bed plotter. 

Hamilton Standard has provided these programs to the NASA on a 
magnetic tape cassette and on a disk device that is part of 
the Crew Systems Division* s WANG 2200 — series computer system. 
This user’s guide is written for the person who has an under- 
standing of the BASIC computer language and is acquainted with 
the WANG 2200 system. 
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RSECS STEADY STATE COMPUTER PROGRAM 


File Name "RSECS” 

Abstract ’ RSECS" calculates the steady state operating point, 
for a given set of input data, for the combined 
RSECS gas and water coolant loops. The program is 
designed for use with a WANG 2200 - series computer 
system. A sample case is shown in figure 1. 

Program Description 

This user's guide is written for the person who has an under- 
standing of the BASIC computer language and is acquainted with 
the WANG 2200 - series computer system. The program models the 
functional gas, figure 2, and water loop, figure 3, schematics 
enclosed. 

Rotating equipment characteristics are supplied as input data. 
However, performance maps for the 350-m and RS-261 heat exchangers 
are stored in the program as internal data, in addition to Freon- 
21 and water vapor properties. These data tables are interpo- 
lated by using an adaptation of the Hamilton Standard Division's 
"UNBAR" routine. 

As written, the program uses Freon-21 as the RS-261 heat ex- 
changer's cold side fluid. Minor changes to the data tables are 
required if another fluid is to be considered. The Freon en- 
thalpy table must be revised to reflect the new fluid. A re- 
vised RS-261 heat exchanger performance map must be generated 
and incorporated. 

The "Input Data Definition", Table I, provides the user with the 
information required to supply the program with the appropriate 
input data. The input data for all the cases is loaded into its 
storage array prior to the execution of the first case. At the 
completion of the first case, the results will be printed, the 
data array cleared and up-dated for the second case, and the 
second case started. The user has the option of matching the 
RS-261 heat exchanger's heat load or hot side operating tempera- 
tures to Shuttle conditions. When the Shuttle temperatures are 
duplicated, the NASA-supplied heat sink will compensate for the 
heat not rejected through the RS-261 heat exchanger. 
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RTTN 4: SAMPLE 

DATE : 7/3/74 

INPUT DATA - 
T RS-20 SETPT 

CASE 1 - MIN 
- 7 0.00 

LOAD 39000 P/L SYS 
0 CHAMBER-S 

0.00 

Q CHAHBEP-L 


1263.00 

Q CHAM AVIONICS 

= 0.00 

C02 INLET FLOW 

0.00 

RS-11 FLOW 


317.00 

•1$ 

RS-11 POWER 

- 970.00 

RS-51 FLOW 

10.00 

RS-51 POTHER 

= 

105. on 

RS-251 FLOW 

■ 779.00 

RS-251 POWER 

73.00 

H20 BYPASS FLOW 

= 

28i.no 


0 K20 AVIONICS 

« 11109.00 

T RS-261 F21 IN = 

35,50 

W RS-261 F21 

2S 

2587.00 


CAS LOOP OUTFIT 7 
T CHAMBER 

DATA - 
= 70.00 

TOTAL AIR FLOW 

5= 

1413.04 

0 

RS-11 

r 

3311.58 

T PENPOINT 


* ‘ 

50.06 

WCP RS-11. 

= 

345.21 

0 

RS-50 -S 


0.00 

T RS-11 IN 


=s 

70.00 

WCP 350— H 

— 

90. 6S 

o 

RS-50 -L 

= 

0.00 

T RS-50 IN 


s= 

79.59 

V 350-M 

= 

73.27 

0 

RS-51 

S 

631.5° 

T 350-1? I?T 


= 

79.59 

V BYPASS 


233.72 

0 

350-M -S 

= 

39A3.17 

T 350-M OUT 


= 

36.10 

W CONDENSATE 

= 

1,19 

0 

350-M -L 


1269.00 

T RS-51 OUT 


~ 

o/. i n 

TTA 350-M 

= 

709.27 

0 

350-M -TOT 

a 

5211.17 

COOT ATT’ LOOP 
T RS-261 1120 

OUTFIT 1 
OUT = 

DATA - 
35.99 

T 350— TT H20 IN 


c. 

c, 

. 

C". 

T 

350-M 1120 OUT 


46.46 

T RS-251 H20 

IN 

= 

54.68 

T AVION H20 IN 

rs 

55.00 

T 

RS-261 H20 IN 

a 

69.2.7 

T RS-261 F21 

OUT 

= 

61.47 

W RS-261/350-M 

= 

498.00 

0 

K20 KTSPJK 

a 

o.no 

0 RS-251 


= 

240. 22 

0 RS-261 

= 

16569.39 






Q) 


Q) 

3 

a 

0 ) 

a 


0 

3 


D 

® 
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FIGURE 1 RSECS STEADY STATE COMPUTER PROGRAM SAMPLE CASE 
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RSECS STEADY STATE COTfPUTER PROGRAM 


rani 6 : sample case 2 - prelatjitcf 21 son p/l sys 
DATE : 7 / 3/74 


INPUT data - 
T RS-20 SETPT 
Q CHAM AVIONICS 
RS-11 POWER 
RS-251 FLOW 
Q H20 AVIONICS 


73.00 0 CNAKP/ER-S 

4100.00 C02 INLET FLOW 

970.00 RS-51 FLOW 

697.00 RS-251 POWER 

26051,00 T RS-261 F21 IN 


6352,00 0 CIIAMBER-L 

0.00 RS-11 FLOW 

10.00 RS-51 POWER 

69.00 K20 BYPASS FLOW 
36.20 W RS-261 F21 


2769.00 

317.00 

135.00 
0.00 

2843.00 


oas loop output 

DAT 

A - 


T CHAMBER 


a 

73.00 

TOTAL AIR FLOW 

T DEWPOINT 


= 

55.25 

WCP RS-11 

T RS-11 IN 



85.46 

WCP 350-M 

T RS-50 IN 


- 

95.31 

V 350-M 

T 350-M IN 


= 

95.31 

v BYPASS 

T 350-M OUT 


= 

48.53 

W CONDENSATE 

T RS-51 OUT 


= 

108.15 

TTA 350-M 

COOLANT LOOP 

OTTTPUT 

DATA - 


T RS-261 K20 

OUT 

= 

6 2.58 

T 350-M 1120 IN 

T RS-251 H20 

IN 

= 

67.55 

T AVION K20 IU 

T RS-261 F21 

OUT 

a 

97.24 

W RS-261/350-M 

Q RS-251 


s= 

235.56 

0 RS-261 


sat 

1376.47 

0 

Rs -11 

= 

3311.58 

— 

336.10 

0 

RS-50 -S 

a 

0.00 

a 

309.97 

Q 

RS-50 -L 

— 

0.00 

= 

282.35 

0 

RS-51 

a 

631.59 

= 

24.6 4 

0 - 

350-M -S 

= 

14435.17 

= 

2.60 

0 

350-M -L 

= 

276°. no 

= 

1309.33 

n 

350-M —TOT 

= 

17254.17 


* 42.80 


350-M H20 OUT = 

67.55 

= 67.89 

T 

RS-261 H20 IN = 

105.20 

= 607 .no 

n 

H20 HTSINN. 

-146.99 

= 43639.79 





FIGURE 1 RSECS STEADY STATE COMPUTER PROGRAM SAMPLE CASE (CONCLUDED) 
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Table I 


INPUT DATA DEFINITION 


CRT 

SYMBOL 

PRINTED 

SYMBOL 

DESCRIPTION 

// of cases 

not printed 

number of cases to be run (1 - 10) 

date 

date 

Time identification (16 characters , 
max) 

are flow 
charts de- 
sired 

not printed 

1 if yes 

2 if no 

is printout 
desired 

not printed 

1 if yes 

2 if no 

run desig- 
nation 

run # 

identifying notation for individual 
case (64 characters, max) 

T RS-20 SETPT 

T RS-20 SETPT 

RS-20 temperature controller setting 
for chamber; program will try to 
balance system at this point (°F) 

Q cham-S 

Q chamber-S 

sum total of all non-RSECS sensible 
heat added to the chamber (Btu/Hr) 

Q chara-L 

Q chamber-L 

sum total of all non-RSECS latent 
heat added to the chamber (Btu/Hr) 

Q avionics 

Q eh am avionics 

sensible heat supplied by the cabin 
avionics simulator (Btu/Hr) 

CO 2 flow 

CO 2 inlet flow 

CO 2 injection rate into the chamber 
(Lb/Hr) 

RS-11 flow 

RS-11 flow 

total air flow generated by the 
RS-11 fans (cfm) 

RS-11 power 

RS-11 power 

RS-11 fans input power (watts) 

RS-51 flow 

RS-51 flow 

RS-51 separator air flow rate (cfm) 

RS-51 power 

RS-51 power 

RS-51 separator input power (watts) 

' 


RS-251 pump flow rate (Lb/Hr) 


RS-251 flow 


RS-251 flow 
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Table I 


INPUT DATA DEFINITION (CONCLUDED) 


CRT 

SYMBOL 

PRINTED 

SYMBOL 

DESCRIPTION 

RS-251 power 

RS-251 power 

RS-251 pump input power (watts) 

bypass flow 

H 2 0 bypass flow 

RS-251 pump package bypass flow 
rate (Lb/Hr) 

Q simulator 

Q H 2 0 avionics 

sensible heat supplied by the H^O 
loop avionics simulator (Btu/Hr) 

T 350M H 2 0 in 

not printed 

desired 350-M HX H 2 0 inlet temp. If 
>0 the heat req’d to compensate for 
the difference between this temp, 
and the RS-261 HX outlet will be 
calculated. 

If = 0 the H 2 0 heat sink Q will be 
set at 0 and the RS-261 HX outlet 
temp, will be used (°F) 

T 261 H 2 0 in 

not printed 

desired RS-261 HX H 2 0 inlet temp, 
must be > 0 if T 350M H 2 0 in is 
> 0 / or must = 0 if T 350M H 9 0 in = 
0 (°F) 

T 261 F21 in 

T RS-261 F21 IN 

RS-261 HX cold side inlet tempera- 
ture (°F) 

261 F21 flow 

W RS-261 F21 

RS-261 HX cold side flow rate 
' (Lb/Hr) 


8 
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The Output Data Defini tion" , Table XI, provides the user with a 
description of the output data’s printed symbols. Two sample 
cases are provided to assist the user in understanding the data 
tables and the program operation. 

For user reference, the following information is enclosed: 

1. RS— 11 Fan Performance Map, figure 4 

2. 350-M Heat Exchanger Performance Curves 

Hot Side Film Coefficient vs. Air Velocity, figure 5 

Cold Side Film Coefficient vs. Water Flow Rate Per 
Start, figure 6 

3. RS-261 Heat Exchanger Performance Maps , Effectiveness vs. 
Hot and Cold Side Flow Rates. 

Uses Cold Side Fluid of - Freon-21, figure 7 

- Water/Glycol, figure 8 

- Water, figure 9 

4. Internal Data Summary, Table III 

5. Data Array, Table IV 

6. Input Data Array, Table V 

7. Logic Key Array, Table VI 

8. Scalar Variable Summary List, Table VII 

9. Subroutine Descriptions, Table VIII 

10. Program Listing, Table IX 
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Table II 

OUTPUT DATA DEFINITION 


PRINTED 

SYMBOL 

DESCRIPTION 

T chamber 

steady state chamber temperature (°F) 

total air flow 

air weight flow at the RS-11 fans (Lb /Hr) 

Q RS-11 

sensible heat generated by the RS-11 fans (Btu/Hr) 

T dewpoint 

chamber dewpoint temperature (°F) 

WCP RS-11 

air weight flow X specific heat at the RS-11 fans 
(Btu/Hr - °F) 

Q RS-50-S 

sensible heat generated by the Li 0 H/C 09 reaction 
(Btu/Hr) 

T RS-11 in 

RS-11 fans inlet temperature (°F) 

WCP 350-M 

air weight flow X specific heat through the 350-M HX 
(Btu/Hr - °F) 

Q RS-50-L 

latent heat generated by the LiOH/C 02 reaction 
(Btu/Hr) 

T RS-50 in 

RS-50 LiOH assembly inlet temperature (°F) 

V 350-M 

air flow rate exiting the 350-M HX (cfm) 

Q RS-51 

sensible heat generated by the RS-51 separator 
(Btu/Hr) 

T 350-M in 

350-M HX air inlet temperature (°F) 

V bypass 

air flow rate through the 350-M HX bypass (cfm) 

Q 350-M-S 

350-M HX sensible heat load (Btu/Hr) 

T 350-M out 

350-M HX air outlet temperature C°F) 

W condens ate 

condensate flow rate exiting the RS-51 separator 
(Lb /Hr) 

Q 350-M-L 

350-M HX latent heat load (Btu/Hr) 
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Table II 

OUTPUT DATA DEFINITION (CONCLUDED) 


PRINTED 

SYMBOL 

DESCRIPTION 

T RS-51 out 

RS-51 separator air outlet temperature (°F) 

UA 350-M 

350-M HX UA (Btu/Hr - °F) 

Q 350-M -TOT 

350-M HX total heat load (Btu/Hr) 

T RS-261 H 2 0 out 

RS-261 HX H 2 0 outlet temperature (°F) 

T 350-M H 2 0 in 

350-M HX H 2 0 inlet temperature (°F) 

T 350-M H 2 O out 

350-M H 2 0 outlet temperature (°F) 

T RS-251 H 2 0 in 

RS-251 pump inlet temperature (°F) 

T avion H 2 0 in 

H 2 0 loop avionics simulator inlet temperature (°F) 

T RS-261 H 2 0 in 

RS-261 HX H 2 0 inlet temperature (°F) 

T RS-261 F21 out 

RS-261 HX cold side outlet temperature 

W RS-261/350-M 

RS-261/350-M HX H 2 0 flow rate (Lb/Hr) 

Q H 2 0 HTSINK 

H 2 0 loop heat sink load (Btu/Hr) 

Q RS-251 

heat generated by the RS-251 pump 

Q RS-261 

RS-261 HX heat load (Btu/Hr) 
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FIGURE 4 . RS-II FAN PERFORMANCE MAP 
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FIGURE 5 KSECS 350-M HEAT EXCHANGER PERFORMANCE 
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FIGURE 7 RSECS 261 HEAT EXCHANGEE PERFORMANCE 
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Table III 


STORAGE 

LOCATION 


26-50 


51- 70 


71-90 


91-118 


119-138 


139-211 


INTERNAL DATA SUMMARY 


DATA DESCRIPTION 


Freon temperatures, 0-240°F In 10° increments 

Freon enthalpy, Btu/Lb, corresponding to tempera- 
tures in locations 1-25 

Water vapor temperatures, 32-70°F in 2° increments 

Water vapor pressure, PSIA, corresponding to tempera- 
tures in locations 51-70 

350-M HX air side film coefficient curve, V n h vs. 
velocity 91: # of X values (13) ° ° 

92: // of Y values (0) 

93-103: air velocity, 100-1300 ft/min in 
100 ft/rain increments 

104-118: ' tj 0 h 0 , Btu/Hr-Ft 2 - °f, corres- 

ponding to air velocities in locations 
93-103 

350-M HX H 2 O side film coefficient curve, h vs 
flow/s tart c 

119: # of X values (9) 

120: // of Y values (0) 

121-129: flow/s tart, 100-500 Lb/Hr 
in 50 Lb /Hr increments 

130-138: h c , Btu/Hr-Ft °F , corresponding to flow/ 
start in locations 121-129 

RS-261 HX effectiveness map; 

H 2 0/F21, T F21 - in = 40°F 
139: # of X values (8) 

140: # of Y values (7) 

141-148: H 2 0 flow, 200-900 Lb/Hr In 100 Lb/Hr 
increments 

149-155: F21 flow, 1500-4500 Lb/Hr in 500 Lb/Hr 
increments 

156-211: HX effectiveness in following order: X-j Yi 
x l* Y 2> X 1 Y 7 ,X 2 Y 1 X 2 Y 1 , XgY 7 


18 



Hamilton U 

Division OF A-orw A 

Standard p^ 


Table IV 
DATA ARRAY 

— Provides storage for individual case 
calculations 

ARRAY I ' ' “ 


LOCATION 

DATA DESCRIPTION 

1 

RS-20 temperature controller set point 

2 

Non-RSECS sensible heat added to the chamber 

3 

Non— RSECS latent heat added to the chamber 

4 

Cabin avionics simulator heat load 

5 

C0 2 injection flow rate to chamber 

6 

RS-11 fans total volumetric flow rate 

7 

RS-11 fans power requirement 

8 

RS-51 separator volumetric flow rate 

9 

RS-51 separator power requirement 

10 

RS-251 pump total mass flow rate 

11 

RS-251 pump power requirement 

12 

H 2 0 bypass mass flow rate 

13 

H 2 0 loop avionics simulator heat load 

14 

350— M HX H 2 0 inlet temperature 

15 

RS-261 HX H 2 O inlet temperature 

16 

RS-261 HX F21 Inlet temperature 

17 

RS-261 HX F21 mass flow rate 

18 

Chamber temperature 

19 

RS-11 fan heat load 


20 


Sensible heat generated by the C0 2 /LiOH reaction 
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Table IV 

DATA ARRAY (CONTINUED) 

- Provides storage for individual case 
calculations 


ARRAY 

LOCATION 

DATA DESCRIPTION 

21 

Latent heat generated by the C0 2 /Li0H reaction 

22 

RS-51 separator heat load 

23 

Sensible heat at the 350-M HX inlet - air side 

24 

350-M HX total sensible heat 

25 

350-M HX total latent heat 

26 

350-M HX total heat load 

27 

RS-251 pump heat load 

28 

H 2 0 loop sink heat load 

29 

RS-261 HX heat load 

30 

RS-261/350-M HX's H 2 0 mass flow rate 

31 

RS-261 HX H 2 Q outlet temperature 

32 

RS-261 HX F21 outlet temperature 

33 

350-M HX H 2 0 outlet temperature 

34 

RS-251 pump H 2 0 inlet temperature 

35 

H 2 0 loop avionics simulator inlet temperature 

36 

RS-11 fan air mass flow rate X specific heat 

37 

350-M HX air mass flow rate X specific heat 

38 

RS-11 fan inlet temperature 

39 

RS-11 fan air mass flow rate 

40 

Chamber temperature from previous iteration 


20 
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Table IV 

DATA ARRAY (CONCLUDED) 


ARRAY 

LOCATION 

DATA DESCRIPTION 

41 

350-M HX UA req 1 d from previous iteration 

42 

Chamber dewpoint 

43 

350-M HX minimum air flow rate - decimal fraction of 
total flow 

44 

350-M HX air inlet temperature 

45 

350-M HX air outlet temperature 

46 

350-M HX UA 

47 

350-M HX volumetric air flow rate 

48 

350-M HX bypass volumetric air flow rate 

49 

RS-50 LiOH assembly inlet temperature 

50 

RS-51 separator air outlet temperature 

51 

RS-51 separator condensate mass flow rate 

101- 

Reserved for internal data storage for 

200 

table Interpolation 


21 
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Table V 

INPUT DATA ARRAY 

- Provides input data storage 
10 cases 

for a maximum of 

ARRAY 



LOCATION 

DATA DESCRIPTION 


1,1 - 1,17 

Case //I input data: corresponds to 

X- array 

2,1 - 2,17 

locations 1-17 
Case #2 input data 

10,1 - 10,17 

Case it 10 Input data 



Table VI 
LOGIC KEY ARRAY 

- Provides storage for program keys 

ARRAY 



LOCATION 

DATA DESCRIPTION 


1 

Case it being run 


2 

Max it of cases to be run 


3 

Flow chart key 


4 

Print- out key 



Table VII 

SCALAR VARIABLES SUMMARY LIST 


B$ 

M2 

U2 

El 

Q1 

U3 

E2 

Q2 

W1 

H 

T 1 

Z 

HI 

T2 

Z1 

H2 

U 


K 

U 


HI 

U1 




22 
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Table VIII 


SUBROUTINE DESCRIPTIONS (CONTINUED) 


IBHi 

SUMMARY 


N9 

Z1 

02 

Calculates air flow rate X Cp by iterating 350-M HX air 
outlet temperature and chamber dewpoint 
Scalar variables: 

B 

03 

Calculates air dewpoint at 350-M HX inlet 
Scalar variables: 

A2 

C 

P2 

Z1 

04 

Calculates 350-M HX hA. and UA 

Scalar variables: ° 

E 

HI 

H2 

VI 

Z1 

05 

Calculates 350-M HX NTU's 
Scalar variables: 

E3 

K 

M3 

06 

Calculates chamber dewpoint 
Scalar variables: 

A2 

F 

P2 

Z1 


24 
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Table VIII 


SUBROUTINE DESCRIPTIONS (CONCLUDED) 

SUBROUTINE 

NUMBER 

SUMMARY 

07 

Calculates air weight flow and Cp by iterating RS-11 
fan inlet temperature 
Scalar variables: 

C3 

G 

PI 

P2 

Rl 

R2 

R3 

zi 

08 

Calculates density of dry air and water vapor 
Scalar variables: 

P4 

R3 

R4 

10 

Calculates RS-11 fan, RS-50 LiOH assembly and 350-M 
HX air inlet temperatures 

11 

Calculates 350-M HX air outlet temperature 






Hamilton U 

— 0«vi«>N O* OWED *i«CR4K CORPOAiriQN 

Standard p 


I® 


Table IX 
PROGRAM LISTING 




10 

io 

30 

40 


50 


60 

70 


80. 


90 

100 


110 

120 

. 130 

140 

150 


REM RSECS ARS/H20 LOOP PERFORMANCE 
COM X(200) , A (10, 17) ,A$ (10)64, B$,Y<4) 

IF Y (l) ] 1 TEEN '250 j 

REM FREON PROPERTIES - TEMPERATURE (1): 

BATA 0 ,10. ,20 ,30 ,40 ,50 ,6 6 ,70 ,80 ,90 ^100,110,120, 

■ 130, 140, 150, 1^0, 170,180, 190, 200, 210, 220, 230,240 
REM FREON PROPERTIES - ENTHALPY (26) : 

DATA 9.44 ,11.81 ,14 . 21,16 .61,19.04,21.49,23.98,26.49,79.03, 
31 . 59, 34 . 18 , 36.79, 39.46,42.1 3 , 44.86,47.62,50.43,53*2 
BATA 56 ,59 ,62 ,65 ,68 ,71 ,74 

REM WATER VAPOR PROPERTIES - TEMPERATURE (51) : 

• DATA 32,34, 36 , 38 , 40, "4 2, 44 , 46,48 ,50, 52,54,56,58,60,62,64,6 6 , 

; 68,70 

I REM WATER VAPOR PROPERTIES - PRESSURE (71): 

. BATA .03854, .09603, .10401 , .11256, .1217 , .1 315 ,.14190, 
.15323, .16525, .17811, .19182, .20642, .222 ,.2386 

DATA .2563 ,.2751 ,.2951 ,.3164 ,.339 ,.3631 

REM 350“M HXi'AIR StDErFTLM 'COEFFICIENT' '(91) : 

BATA 13 ,0 ^lOo: ,900 ,300 ,400 ,500 ,600 ,700 ,800 , 

900 ,1000,1100,1200,1300 

BATA .9.6 ,13.2,15.6,17.7,19.5,21.2,22.6,24 ,25. 3,26. 

! ; 27 . 5,28. 5,29.6 ■ ; . ^ 

RE?' 350-M HE 1120 SIRE FILM COEFFICIENT (119): 

• BATA 9; -,0 " , 100 ,1 *0 , 2 00 , 250 ,300, 350 , 400 , 6 . 5 0 , 500,134,1 oq 

:■ 282,370.463,560,655,76.5,860 
REM 2.6 1 HX EFFECTIVENESS MAP - F21/1T20, T-F21=40F (139): 


160 

170 


180 


100 


200 


600 ,700 ,poo 

4000 ,4500 ,1 
.9376, .9995,1 

OQO 0007 OO 00 

* • - - » » -•-*»- 

, .8937, .9996, .9009 
,.9987,. 5308,. 7002 
,.6169,. 7556,. 862 
,.7914,. 8739,. 9268 


BATA 8/ ,7 ,300 *300 ,400 ,500 

°00 ,1500 ,2000 ,2500 ,3000 ,3500 

BATA 1 ,1 ,1 ,1 %1 #1 

1 V »l i ,1 ,.934 ,.9836 

1 *1 ,.736 , . 911.3, . 9793, . 9952 

BATA .619 ,. PP23,. 9232, .^743,.. 9913, .9968 
.8405, .9274, .96,80, . <W,4, .9937,. 4 640 
.9282,. 9635,, 981 4132, . 5496, . 6797 

BATA .9577 

INPUT "0 OE CASES ’ O-10V ” 

INPUT "DATE : h ’b$: * 

INPUT "ARE FLOW CHARTS BESIREB, (YES==!/H0=2) : ”*Y(33 
INPUT "IS PRINTOUT BESIREB, ( V ES=1/TT0=2) : "’y( 41 ; 
FOR Z=1 TO Y(2): SELECT PRUT 1 005: PRINT "CASE - " *7* 
INPUT "RUN DESIGNATION : ",A$(E) 

THPTTT "T RS-20 SE^PT (PEC Fl = ",A(Z 1): 

I TT PTET "0 C17AM-S (RTU/HR) = m |a(Z*2): 

INPT7T "0 CUAK-L (ETU/HR) - "*A(z’.3> 

INPUT "n AVIONICS (RTU/hp^ = ",A(7,4) ; 

INPUT "CO 2 FLO!' 7 '(LB/HR) - ",*A(Z*5)i 

INPUT "PS-ll FLOW . (CFM) = ",A(Z,6) 


ORIGINAL PAGE B 
OF POOR QUALITY 
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Table IX 


PROGRAM LISTING (CONTINUED) 


i 'INPUT "RS-U POWER; (WATTS) = ",A(Z,7) : 
jlHPljT "RS-51 FLOW ; • (CW) = ”,A(Z t P) : j . 

;iNPTJT7 ? RS-Sl: POWER (WATTS) - ",A(Z,9) 
t INPUT "P.S-251 FLOW '(LB/HR) => ",A(Z,I0): 

[INPUT RRS-?51 POWER (WATTS) - ".AfZ.ll) : 

' INPUT Tf BYPAS'S ‘ FLOT 7' ' (LL/HR) = ",A(Z,12) ' ‘ * r 

INPUT ?'0 SBfJLATORi (BTU/TIR) = n ,A(Z,13) : 

TINPUT NT 350M- H20 IN. (DEG F) = "^(7,14): 

'INPUT Ut; 261' H20 IN (DEG F) = ",A(Z,15) 

'INPUT j"T 261: F21 IJ7 ' (DEG F) = ",A(Z,16): 

.11 TUT "261 F2I FLOW (LB /HR) = ! 

■ NEXT Z. ' : : ; ' 

IF Y (Ij) [=Y (2) THEN 260: Y(l)-n : REWIND : GOTO 340 
FOR Z=1 TO 17: X(Z)=A(Y (1) ,Z) : NEXT 7: X(l!?)-X(l): 

X(1 9 )*& .41 A*X ( 7 ) : X(20)=S75*X(5) : X(2l)=42?.5*X(5) : 1 

X(22)=;3. 414*7(9): X(23)=X(4)+X(19)+X(20) 
■X(24)»X(2)+X(22)+X(23): X(25)=X(3)+X(21) : 
y;(26)^;(24)+x(25) : X(27)=3.414*X(ll)': X(30)=X(10')-X(12) : ' 
RFSTOJSE 139: FOR 2=101 TO 173: READ X(Z): NEXT 7 
OOSUB U 01 (X (30) , X (1 7 ) ) : El-Zl:. IF X(15)-0 THEN 290: 

X (31) =X (15 ) -El* (X (15 )~X (16 ) ) : X(29)=X(30)*(X(15)Wx(31)i) ; 
X(2S)^X(30)*(X(31)-X(14)):^FO 300 : ’ ; i \ 

X(28)=D: X(29)=X(2A)+X<27)+X(13) : ‘ i ‘ ; 

X( 31 T=X(1 6 )+X ( 29) /X ( 30) * ( 1 / El-1 ) : X ( 15 ) =X (31 ) +x (2 9)7 X(3 0 ) :~ 
X(14)=x (31). j 
X (101):= 25: X(102)»0: RESTORE 1: FOR 7.-103 TO 152: READ X(Z) 

NEXT Zv GOSUB * 01 (X(l6) ,0) : Hl-7.1: H2=H1+X(29) /X(17) : t ’ 

RESTORE 26: FOR 2=0.03 TO 127: READ X(Z): NEXT 7 
RESTORE 1: FOR 7.-12B TO 152; READ X(Z): NEXT Z: 

GOSUB *0l(H2,o); X(32)=Z1: X(33)-X(l4)+X(26)/X(30) s' • Y‘ 

X (34 ) - (X (3 3 ) *X (30)+X (1 5 ) *X (12)) /X (10) 

X ( 3 5 ) =* X ( 3 4 ) +7. ( 2 7 ) / X ( 1 0 ) : X(40)»0: X(41)=0: X(42)-50: » 

X (43)-. 1271676: X(39)»23S0.656*X(6)/<X(18)+459.6): 

X(36)=, 24*7(39): X(37)*X(36) : Wl=X(30)/2: RESTORE 119 
FOR 7.-101 TO 120: READ X(Z): NEXT Z: GOSUB '01(W1,0): 

111=7 * 3008*71: GOSTTB T 02: GOSUB *10: GOSUB 1 11: 

IF X(45) ]— X (14) THEM 360 

X (A 5)-X (4 5 )+l : X (44) =X (45)+X (24) /X (37 ) : 

X(1S)=X(4A)~X(23)/X(36) ; GOSTTB ? 02: GOSUB *10: GOSUB *11 

IF X(45)[X(14) THEN 340 

GOSUB *03: GOSUB r OA: H-H2/H1: 

■T1«(X(37)*X(AA)+X(36J*(H*X<A2)+X<4'2').-X(33)n/ 

(H*X(30)+X(37) ) 

Ql=x(37 )* (Tl-X (45) ) : 02=01+x(25): IF 02[X(26) THEN 380: 
!T1=0: T2=X(33): T1=X(44) ; 01=X(24) j Q2=X(26): GOTO 390 
T2=X(42)-H* (TI-X(42) ) : IF T2]=T1 THEN 510: 

El= (X (4 A ) -Tl ) / (X (44 ) -T 2 ) : M1=X(30)/X(37) : GOSUB f 05(EKMl): 
U3.=K*X(37) ' 
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PROGRAM LISTING (CONTINUED) 


0 • E2= (Tl-X (45) ) / (Tl-X (1 A) ) : M?=X (30) *Ql/x’(37) /02 j 
GOSUB : ' 05 (E2,H2) : U2=K*X(37)*Q2/01: 

;U3= ( (1/H) / (1+1 /H) ) *01 /02+(l/ (1+1 /H) ) : U=U1+U2*U3 
3 IF U =X(44) THEN 550: IF U]X(46) THEN 510: IF X(1A) ]=X(45) 

; THEN 550: IF X(18)]X(1) THEN 430: IF X(37) ]X(43)*X(36) 
iTHEN 430: X(45)=Xp.A) : X(37)*X(43) *X(36) 

3 ; X (4 4 ) *X (45 )+X (24 ) /X (3 7 ) : X(18)=X(44)-X.(23)/X(36) : GOSUB '04 
00 SUB *07: X ( 37 ) -X (4 3 ) *X (34): GOSUB *10: 

. :t1“X(44)-X(24)/X(37) 

3 E1“(ABS(T1-X(45)))/X(45) : IF El]*.5E-4 THEN 410: GOTO 550 
) IF X(1S)=X(1) THEN 440: X(40)-X(1S) : X(41)=U: 

. ;X(1R)*X.(18)-.1: GOSUB ’02: GOTO 440 

).' E1=(ABS(U-X(46).))/X (44) : IF El[.5E-2 THEN 550 : 

X (4 5 ) *X (1 4 ) + (X (4 5 ) -X (1 4 ) ) *U/X (44): 

X(37)tX( 24)/(X(44)-X(45)) : GOSUB *06: GOSUB '07: GOSUB *10 
) X(37)*X(24)/(X(44)-X<45)): IF X(373 ]»X(A3)*X43f ) THEN 460; 

X (37 ) +X (4 3 ) *X (34) 

KGOSUBi/lO; GOSUB. Ml;. IF X(45)]-X(14) THEM 340: 

’ IF X(lR) ]X(1) THEN 490: 

:X(37)*X(24)/(X(23)/X(34)+X(18)-X(14)): X(45)=X(14) 

), GOSUBi *04: GOSUB *07: GOSUB r 10: . X(37)=X(24)/ (X(44>-X(45) ) : 

IF X(37) ]=X(43)*X(34) THEN 340: X(37)=X(43)*X(36)V 

GOSUB i Ml: GOSUB 'Q4: G0$T|B f 07: GOSUB *10 
> X ( 3.7.) +X (4 3) *X ( 3.4 ) : GQSI1T. ' 'IT; j GOTO 340 
t X(4’5)*X(14) : X(1S)=*X(45)+(X(24)-X(23))/X(343 ; GOSUB 
; GOSUB M 10: T1=0C(44)-X(24) /X(37) 

i El* (ABS (Tl-X (45) ) ) /X (45) : IF EIJ-.5E-4 THEN A90: GOTO 550 
' IF X(45)=X(44) THEN 530: El= (ABS (TJ-X(46) ) ) /X(46) : 

IF El [ . 5E-2 THEN 550: X(37)=X(?A)/ (X(443-X(4f>)-. 1) ; 

IF X (37). [=X(36) THEN 520: H(37)=X(34) 

GOSUB *10: GOSUB ’ll: GOSUB '04: GOSUB '07: GOSUB '10: 
X(37)=X(24)/ (X(44)-X(45) ) : IF. X(37) [-X (34) THEN 340: : 
X(37)=X(36) : GOSUB 'll: GOTO 340 
IF (X (4 0) -X (18) ) [ ] „ 1 THEN 540; 

X (1S)-X ( 10 )+, 1 * ( (u-X(44) ) / (U-X (41) ) ) : GOSUB *02: GOSIJE '30: 
.GOSUB ’ll: GOTO 550. 

X(18)=X(1S)+1: GOSUB *02: GOSUB *10; GOSUB 'll: GOTO 340 
GOSUB ' 04 ; GOSUB '07: GOSUB '10 : GOSUB 'll: 

X (4 8) =X (6 ) * (X ( 36) -X (37 ) ) /X (36 ) : X(473=X(63-X(48)-X (S3 : 
X(50)*X(A5)+X(22)*X(4)/X(34)/X(S): x(51)=X(25)/1045 
IF Y (4)=! THEN 570: GOTO 440 
SELECT PRINT 211(154): PRINT HEX(ODOE): 

PRINT "RSECS STEADY STATE CONTTJTER PROGRAM”: 

• PRINT HEX (OAOAOA) 

PRINT "RUN if: ";A$ (Y(l) ) : 

PRINT "DATE : ";E$; PRINT HEX(OAOA) : 

PRTT.rr "INPUT BATA — ” ' 

PRINTUSING 630,X(1),X(2),X(3): . 

PRINTUSING 490,X(4),X(5),X(4): 

TRIBES TNG 700,X(7),X(S) ,X49) 
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600 PRINTUSIIJG 710 t X(10),X(ll),X(12): 
PRIOTSIKCt 720 t x(p) ,X(16) ,X(17) : 
PRINT HEX(OAOA) ' 

610 PRINT "GAS LOOP OUTPUT DATA 

PRINTUSING 7 00, X (IS) ,X(39) ,X(19) : 
PRINTUSING 740 ,X(42) , X (36) , X (20) 

; 620 PRINTUSING 750, X fen) ,X (37) ,X(21) : 
; PRINTUSING 760,X('4°) ,X(A7) ,X(22) : 
PRINTITRINO 7 7 0 ,X (44 ) , X (4 8 ) , X (24) 
630' PRINTUSING 700, X (45) ,X(51) ,X(25) : 
; PRINTUS ING 7 GO, X 050), X (4 6 ) , X (26 ) : 

•' PRINT HEX(OA) 

640 PRINT ’’COOLANT LOOP OUTPUT DATA 
PRINTUSING POO, X (31) ,X(14) ,X(33) : 
PRINTUS TNG S 1 0 , X ( : 34 ) , X ( 3 5 ) , X (1 5 ) 

: 650 PRINTUSING :S20,X(32) ,X(30) ,X(28) : 
PRINTUSING S30,X(27),X(20) : 

PRINT HRX(OAOAOAOAOAOAOAOAOAOAOA) 


660 IF 

Y (3)-2 ThnN 67:0: , LOAD 

"RS] 

”*C S2" 




670 v (i)=fY (1)+1: GOTO 250 



i 



680 XT 

RS-20 SETPT «_#£/'•# 4 

Jl 

• L 7' 

0 GHAMBRR-S 

=-##444 

it it 

• r, •/ 

0 

CTIAJIBER-L =-i ?4444.44 . 






690 %Q 

ClIAM AVIONICS ' =-#44#$ 

nn 

• V 7 ' 

CO 2 INLET FLOW 


.44 

R 

S-VV FLOW - - =-#### 4 ...## ' 

700 XRS-11 POWER ' 1 =-#4##4 

S-51 POWER ' =-#4444.44 

.44 

RS-51 FLOW 

=_£/WW ! 4 

.44 

P. 

710 XRS-251 FLOW =-#4444 

20 BYPASS FLOW =~4###4.#4 

.44 

RS-251 POWER 

=-44444 

j** 

• ir ?r ,r 

il 

720 %Q 

I!20 AVIONICS =-#4444 

. 4 ~ 

T RS-261 F21 IN 

=-44444 

.44 

w 

RS— 261 F21 • =-#44##. #4 






730 XT 

CHAMBER =-#4444 

21 if 

TOTAL AIR FLOW 


. 4 4 

0 

RS— 11 







740 -%T 

DEWPOINT 

. -t 

WCP RS-11 


r.jt 
. rv 

o 

RS-50 

-S 






750 XT 

RS-11 ITT =-#4^ 

. 4 '■ 

WCP 350-M 

=-#4444 

.4# 

0 

RS-50 

-L . 


• ■ • . ■ • 




760 %T 

RS-50 IN »-##### 

.44 

V 350-41 

--44444 

it if 

0 

RS-51 

= — /J/WW- 5^ /i /2 






770 XT 

350-m IN -_##### 

.44 

V BYPASS • i 

=-44444 

.44 

o 

350-M 

-S =-44444.4/? 


■ ‘ 




7 SO XT 

350-M OUT =-##444 

.44 

W CONDENSATE 

=-##444 

.44 

0 

350-M 

-L »- 4 j ff,«.44 






790 XT 

RS-51 OUT =-44444 

n it 

UA 350-M 


/t i> 

Q 

350-M 

-tot = -. 44444 . 4 4 






000 XT 

RS— 26i H20 out —44444 

21 it 

• r 

T 350-M H20 tn 

_ ii /( it it it 

I'ln'ln? 

it i! 
. K 7. 

T 

350-M 

1120 OUT =-44444.44 






sin b 't 

PS-251 >120 IN =-44444 

.#* 

T AV7.0" >120 IN 

=_/: /‘44r 

r- 

♦ j. .n 

T 


RS— 261 H20 IN =-#4/i#4.4# 

29 
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820 

%T RS-261 F21 OUT 


u 

RS-261/350-M 

• 

ii 

11 20 HTSINIC 

7/f .4'ff 




830 

%0 RS-251 


0 

RS-261 



840 END ' | 

850 DEFFH* 01 (01, Dl) ‘ 

860 DU! A1 (6) ,X1(6) ,Y1 (6) 

870 11=101: N=3: N2=2 

880 IE X(I1)=3 THEN 920: IF X(I1)]3 THEN 920: 

IE X(I1) [0 THEN 950s. IF X(I1)=0 THEN 920: 

IE X(I1)=2 THEN 900: IF X(I1)]2 THEN 020 
890 N=l : I GOTO 910 .. 

'900 77=2 ' f r; : *’■■■; ■ ... 

-910 N2-aJ • 

920 ' 11=11+1 
920 Nl-N-fl ’ 

940L»I1: IE X(L) ] 0 THEM 960 
950..K1--1: Zl-0: GOTO 1230 

'960"N9=X(L): : • • 

■ ■■■ IF X:a+1)[0 THEM 950: IE X(L+1)]0 THEM 980 : 

970 NR-Os GOTO 990 
980 N8=X(L+1) 

990 Kl=0; KR-O; 02=01: Jl«Il+2-: J2=N9+I1+1: 

IE C2[X(J1) THEM' 1030 rtf C2=X(Jl) THEM 1040 
1000 FOR J=J1 TO J2: IFC2f=X(J) THEM 1050: NEXT J 
1010 Kl-2: C?=X(.T2) 

1080 J9=J2-N: GOTO 1060 
1030 Kl=l: C2=X(J1) ; 

1040 J9=Jl: GOTO 1060 

1050 IF J-J1[1 THEN 1030: IF J-Ji=l THEN 1040: 

IF J=J2 THEN 1020; IF J] J2” THEM 1010: 

J9=J“N2 

1060 03=02: IF N8]0 THEM 1070: FOR L=1 TO Ml: X1(L)=X(J9): 
L8=J9+M n : Y1(L)=X(7;8) : J9=J9+1: NEXT L: 1=1: GOTO 1150 
1070 J1=J1+M9: J7=J2+N8: D?=Dl : IF R2[X(J1) THEM 1100: 

IF D2=X(J1) THEN 1110; FOR J=J1 TO J2: 

IF R2[=Y(J) THEM 1170: NEXT J 
1080 K8=6: D2=XOT2) 

10 n 0 73= j 3-M : GOTO 1130 
iron K8=3: R7=X GT1) 

11.1.0 JP-J1 : GOTO 1130 

1120 TF ,T-J1[1 THEM 1100: IF J-J1=1 THEM 1110: 

‘ IF J=J2 tttf?\ loon* IF J].T3 THEN 1080: J8=J-M2 

1130 J7=J9: LR«.TW!R*(J7-I1-1): 77=13: FOR L=1 TO Ml: 

X7.(70=X(J7) : Y1(L)=X(L7): L7»L7+T!8: J7=J7+1: NEXT L: 

I=0 : GOTO 1150 

1140 Y1(1)=Z1: FOR 1=1 TO N: 17=7,8+1: Yl(I+].)=0: FOR M=1 TO Ml: 
Y1(I+1)=Y1(I+1)+X(L7)*X1(H): 77=77+173: NEXT M: NEXT I: 

FOR T,=l TO Ml: X1(TQ=X(J3): J3=J3+1: NEXT L: C3=D2: 1=1 
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OfV^SOf* 0*= OKlTto *IHCH*FT CO«PO«*^CN 


table IX 


PROGRAM LISTING (CONTINUED) 


i240 

1250 

1260 


133.0 

1320 

1330 


1340 

1350 

1360 


n«l: XI (N-f2)=XI (1) : XI (U+3)=X1 (2) : FOR J=1 TO HI: 

A1 (J+l ) =X1 (J+l ) -XI ( J ) : C4“C3-X1 (J) : IF CAMO THEN 1170: 

Z1=?Y1 (J) : XI (1)=0: Xl(2)=0: Xl(3)=0 : Xl(4)=0 

XI (J)=l: GOTO 1220 

D=D*C4: ON H GOTO 1180,1190,1200 

XI ( J) ~C4 /A1 (sT+1 )': GOTO 1210 

XI (J)~-C4: GOTO 1210 

XI ( J) = (XI (.T+2 )-Xl (J ) ) *C4 

NE5tT J: Al(l)=Al(N+2) : 21=0: FOR J=1 TO Nl: 

XI (J)=D/ (A1 (J)*A1 (J+1)*X1 (J) ) : Z1=Z1+Y1 (J)*X1 (J) : 

NEXT J 

IF !I[=n THEN 1140 
KIrKI+KO: SELECT PRINT 005: 

PRINT ’’OFF TABLE INDICATOR =”;K1 

RETURN ' • ■ ‘ 

DEFFU* 0? : j 

FOR B=1 TO 4: GO SUB *07: X(37)=X<36) : 

‘ X (4 5 ) =X ( i 8 ) - ( X ( 2 4 ) -X ( 2 3 ) ) /X (36) ; GOSUB ; 1 06: GOSUE T 07 : 
NEXT B: X(37)=X(36) 

RETUPJ! 

DEFFM* 03 

X(l01)=20: X(1Q2)=0: RESTORE 51: FOR C»103 TO 162: 

READ X(G) : NEXT C: GO SITE * 0l(X<45) ,0) : P2=Z1: 

A24 . 62 2*V?J (14. 69 6-P 2 ) +X (25) *X ( 3 6 ) / 1065 /X ( 3 9 ) /X (3 7 ) 

FOR C=1 TO 3: P2=A2*(14 . 696-P2)/ . 622: NEXT C: 

RESTORE 71: FOR C=103 TO 122: READ X(C): NEXT C: 

RESTORE 51: FOR C=7 23 TO 142: READ X(C): NEXT C 
GOSTTB 1 01(P2,0) : X(42)=Z1 : 

RETURN 
DEFFN ’ 04 

V1=X (6) -X (37 ) / , 3815 /X ( 36) • RESTORE 91: FOR F=mi TO 128: 
READ X(E): TIE XT E: GOSTTB '01071,0): H2~I18. 48928*21: 
X(46)=l/ (1/H1+1/H2) 

RETURN 

DEFFN 1 0 5 ( E3 , M3 ) 

IF M3=1. TURN 1370: IF M3]l TTTEH 1380: 

K*=M3 / (1— M3)*L0G ( (1-E3 ) / (1-F3/M3) ) : GOTO 13 Q 0 

K=E3/ (1-E3) : GOTO 1390 

K=M3 / (II 3-1 ) *LOG ( (1-E3 /1 13 ) / ( 1-E3 ) ) 

RETURN 
DEPTH* 06 

GOSTTB *03: A2=A2-H(21) /3.065/X(39) : FOR F=1 TO 3: 

P2=A2* (14. 696-P2) /. 622: NEXT F: GOSTTB t 01(P2,0): X(42)=21: 

RETURN 

DEFFU’07 

X(101)=20: x(102.)=0: RESTORE 51: FOR 0=103 TO 142: 

READ X(C) : NEXT 0 : GOSUB 1 01 (X(42) ,0) : Pl=21: 

GO SIT* ’ 08 (PI ,85. 76) : R1=R3: P2=14.696-P1 
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Table IX 

PROGRAM LISTING (CONCLUDED) 


1440 GO'SITB * 08 (P 2 , 53 . 35) : R2«R3: 

: ; R3« (85.7 6*Rl+53 . 3 5*R2 ) / (R1+R2 ) : C3=.24+. 2799*P1/P2: 

J . ■ FOR 0=1 TO. 6. : I ... 

1450 X039)=*3:2:6«73.44*X(6)/R3/(X(18)+X(4)/X(36)+459,6)s 
■ ! : X(i36)=*C34x(39)i: NEXT G; ! 

I L. . RETURN j ; . . . . 

1 1460 DEFF!^0P;(P4,R4): 

i R3?=144*P4/R4/ (ix(18)+459. 6) : 

| /return . ; ; :: . .... 

1470 DOFFNM.O: • j • 

' • • X(3R)“X(18)+X(4) /X(36) : 

^^:_ l xto>xa8jH^c4).+xa9))^c3« j 

1480 X(44)*X(18)+X(‘23)/X(36) : * 

■" •’ • . return ! ’ 

:j.i49.Q-DEFFii f ii: : . 4 ^. . . . • :.j 

t : -i j ■; X (:4 5 ) (4 4 ) -X (24 ) /X (3? ) : j ■ 

•' ‘ ] ! - ’ RETURN : ! ; ■ j ■ • i • • ’ 
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RSECS FLOW CHART ROUTINE 
File Name "RSECS2" 


Abs tract "RSECS2" automatically produces flow chart output (on 

previously prepared schematic drawings) of the case cur- 
rently being analized by the program "RSECS" , The flow 
charts are produced using the WANG 2200 plot bed plotter. 


Program Description 


A data block containing values generated by "RSECS" is transferred 
through use of a common block to program "RSECS 2". This program then 
sorts the data and prints out the values in the appropriate location on . 
the schematic. Two separate schematics are used, one for the air loop 
and one for the water loop. Samples of program output are given in 
figures 10 and 11 followed by a program listing Table X included for 
reference. 


The only user action required for this program is the loading of the 
appropriate schematic on the plotter as required. 
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CASE: MIN ON ORBIT B/P = 500 DATE: 10/17/74 



IDIC 




FIGURE 10 RSECS ARS GAS I0OP SCHEMATIC 


Hamilton 

Standard 






CASE: MIN ON ORBIT B/P 500 DATE: 10/17M 


WI 

sr» 

ll 


T = 87.38 


T = 88.12 



RS-251 PUMP 
W = 950.0 
Q, = 698*^4 


HEAT EXCHANGER BYPASS 



w - 450.0 



q = 13043. 
T = 81.85 


W = 500 


350-M HEAT 
EXCHANGER 

W = 83.99 
Q = 8243.7 


NASA HEAT SINK 



T = 50.29 


RS-261 HEAT 
EXCHANGER 

W = 5200.0 

Q, = 21983. 


= 32.99 


GSE COOLANT 
IOOP 

T - 33.00" 


FIGURE 11 RSECS WATER IOOP SCHEMATIC 


Q = HEAT BTU/HF 
T = TEMP DEG F 
W = FIOW LB/HR 
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Table X 


PROGRAM LISTING 


RET? RSECS2 PROGRAM LABELS DIAGRAM 
COM X(2 00) , A (10, 17) , A$ (10) 64 , ii$ , Y (4 ) 
DIM. X $ ( 1 0 0 ) 3 , li ( 1 0 0 ) 

SELECT PRINT 005:PRINT HEX.(03): 

PRINT "RSECS FLOW CHART ROUT INE" : PRINT 
FOR 1 = 1 TO 51 . .. 

IF ABS (X(I) )] =100000 THEN 80: 

IF ABS (X(I)) ] =10000 THEN 90: 


IF ABS (X(I)> 3=1000 THEN 100 - ■ 

IF ABS(X(I>) ]=100 THEN 110: 

IF ABS (X(I) ) ] =10 THEN 120: 

IF ABS ( X ( I ) ) ]=1 THEN 130:GOTO 140 

CONVERT X(I) TO X$ ( I ), (-**# §§*): B (I ) =0 : GOTO 150 
CONVERT X ( I ) TO X$ ( I) ,<-#*#*#•): B (I )»U : GOTO 150 
i CONVERT X ( I ) TO X$ ( I ) , (-;U# # • //) : B ( I ) =0 : GOTO 15 

I CONVERT X ( I ) TO X$(I ),(-£//#•£) :B(I)=l:GOTO 15 

i CONVERT X ( I ) TO X $ < I ) , ( - ## • 0 // ) : 3 ( I ) = 1 : GOTO .15 

l CONVERT X(I) TO X$ ( I ),(-//• M ) :B(I)=2;GOTO L5 

I CONVERT X ( I ) TO X$ ( I ),(-.#//// ) :B(I)=2;GOTO 15 


X$(I) 
X$ (I) 

x$(l) 
x$ (I) 
x$ (I) 


B ( I ) = 0 : GOT 0 
B( I) =1 : GOTO 
3 ( I ) = 1 : GOT 0 
B ( I ) = 2 ; G OT 0 
B ( I ) = 2 : GOT 0 


CONVERT X ( I ) TO X $( I ),(- # ##?)•//): B ( I )= 0 : GOTO 150 
CONVERT X ( I ) TO X $ ( I ) , (-#//#•#) :B(I)=l:GOTO 150 

CONVERT X ( I ) TO X$ ( I ) , (-## ) : 3 ( I ) = 1 : GOTO .15 0 

CONVERT X(I) TO X$ ( I ),(-//• :B(I)=2;GOTO 150 

CONVERT X ( I ) TO X $ ( I ),(-.##// ) :B(I)=2:GOTO 150 

NEXT I 

SELECT PLOT 414 ' ' 

STOP ’’LOAD GAS LOOP SCHEMATIC ON PLOTTER THEN KEY CO 
PLOT [1, ,C] , [13,0,-S] , [ , # Rj 

PLOT [ 19. 50*13,29. 50*20, L] , [ . ,X$ (18)] , [ B ( 18) *13 , 0 ,U 1 
PLOT [ -7*13, -20, U] t f , ,X$(42) ] , [B(42)*1‘3 ,0,U] 

PLOT [ -7*1 3, -20, U] ,[, ,X$(2)] , [ B ( 2 ) * 13 , 0 , U j 
PLOT [-7*13, -20, U] , [ , ,X$(3) ] , £ B(3) *13,0,U] 

PLOT f-7*15,-2G,U] , [ , ,X$(5)] , [ B ( 5) ~i3, 0,U) 

PLOT [-17*13,-7.25*20,1/] ,[. ,X$ (18) ], [B(l 8) *13,0,0] ' 


PLOTTER THEN 


CONTINUE" 


[5*13,0,U] , [ , ,X$(6) ] , [3(6)*13,0,U] 
[-7*13,-20,U],[,,X$(19)J,[B(19)*13,0,U] 
[-7*13,-20,U] , [ , ,X$(49)] , [B(49)*13,0,U] 
[ 7 *13, 2*2 0, U ] , [ , ,X$( 20) ] , (3(20)* 13,0,U] 
[-7*13,-20,U] , [ , ,X$ (21)3 , [B(21) *13,0, U] 
[-7*13, -20, U] , ‘ 


[3(49)*]. 3,0, U] 
[B(20)*13,0,U3 
[ B ( 2 1 ) *13 ,0,U] 


[ , , X$ ( 44 ) } , [B(44)*13,0,U] 


PLOT [1, ,CJ , [13,0,-S] , [ , ,R] 

PLOT [19. 50*13,29. 50*20, U] , [ . ,X$ (18)] , (3(18) *13,0, U] 

PLOT [ -7*13, -20, U] , [ , ,X$(42) ] , [B(42)*1‘3 ,0,U] 

PLOT [-7*13, -20, U] ,[,,X$(2)3 , [ B(2) *13 , 0, U J 
PLOT [-7*13, -20, U] , [ , ,X$(3) ] , [B(3) *13 , 0, U] 

PLOT ■ f-7*lj,'-20,U] ,[, ,X$(5)] , [B(5) -13,0, U) 

plot [-17*13,-7. 25*20, UJ ,[. , X $ ( 1 8 ) ) , [ B ( 1 8 ) *1 3 , 0 , U j 

PLOT [3*13, -20, U] , [ , ,X$(4) j , [B(4)*13,0,U] 

PLOT [-7*13, -20, U] , [ , ,X$(3S) ] , [ B (3 8) *13 , 0 , U] 

PLOT [5*13, 0,U] , [ , ,X$(6) ] , [B(6)*13 ,0,U] 

PLOT [-7*13, -20, U] , [, ,X$(19)j , [ B (1 9) *1 3 , 0 , U] 

PLOT [-7*13, -20, Uj , [ , , X $ ( 4 9 ) J , [3(49)* 1. 3,0, U] 

PLOT [7*13, 2*20, U ] , [ , ,X$ (20) ] , [ B(20) *13 ,0 ,U] 

PLOT [-7*13,-20, U] ,[, ,X$(21) ], [B(21) *13,0 ,U] 

PLOT [-7*13,-20, UJ , [ , ,X$ (44) ] , ( B (4 4) *13,0, U] 
T-(X(44)*X(4S)+a(45) *X(47) ) /X(6) 

IF ARS(T) ]=100 THEN 350:IF ABS(T)]=10 THEN 360:IF ABS(T)]= 
1 THEN 370: IF ABS (T) 3=0 THEN 380 
CONVERT T TO T $ , (- # -7 ) : T2 = 0 : GOTO 390 

CONVERT T TO T $,(-#//• # tf): T2 = 1 : GOTO 390 

CONVERT T TO T$ ,(-/<* PV): T2 = 2 : GOTO 390 : 

CONVERT T TO T $ , ( - . # ft It ) : T 2 = 2 : GOTO 390 
PLOT [-2*13,18. 25*20, U] , [. ,T$] , [T2*13,0,U) 

PLOT [11*13, -10. 25*20, U] ,[, ,X$ (47) ],[ 3(47) *13,0 , U] 

PLOT [-7*13,-20, U] ,[, ,X$ (24) ], [B(24) *13,0, U] 

PLOT [-7*13,-20, U] ,[, ,X$(25) 3 , [3 (2 5) * 13 , 0 ,U] 

PLOT [-7*13, -20, U] , [ , ,X$(45) 3 , [ B (4 5 ) * 1 3 , 0 , U ] 

PLOT [- 10*13, -3*20, U) . [,,X$ (14)] . [ B( 14 )*1 3,0, UJ 
PLOT [-7*13, -4*20. U] ,X$(33) ], [ B ( 33 ) *1 3 , 0 , U) 

PLOT [-7*13,-20, Uj ,[, ,X$(30) ], [ B (30) *13 , 0 , U j 
PLOT [-7*13,-20,11] ,[ ,X$(26)] , [3(26)*13,0,U] 

PLOT [-29*13, -2*2.0, U] ,[, ,X$(0) ], f B (3) *1 3 , 0 , U] 


PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 
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Table x: :. 


PROGRAM LISTING- (CONCLUDED) 


490 
*500 
510 
520 
|5 30 

i540 
TIC 
NUE” 
550 
560 
15 7 0 
1580 
<590 
600 
610 
.620 
630 
:640 
650 
660 
670 
680 
690 
: 7 oo 
710 
7 20 
i730 



PLOT. -7*13, -20, U] ,[, ,X$(22) ], [B (22) *13 , 0 , U] ; 

PLOT -21*13, -3. 5*20, U ] a,, X$ (5 0) ] (50) *13,0, UJ - — --I 

PLOT 25*13 -3 °* 2 ° U],[, X$(5D], B (5 1 ) * 13 , 6 , U ] i 
PLOT [,, R] , [23*13 ,34*20, UJ 

k-y(i) : plot [ , /'case: * 3 , [ , . a$ (k) 3 : I J. . i...: 

PLOT [3*13, 0, U) ,[, /’DATE: A 3 $],[,, R] 

SELECT PRINT 005: PRINT jPRINT : STOP “ REMOVE GAS LOOP SCHEMA 
( AND LOAD WATER LOOP SCHEMATIC ON PLOTTER THEN KEY CONTI 

PLOT [ 2 1*13 ,3 3*20, U) [ ,,X$(34)K [B (34) *13 f 0, U) 

PLOT [4*13,-. 50 *20 Uj , [ ,X$(35) , [B(35)*13,0,U] 

PLOT -14*13, -6. 25*20, u| , [ , , X$ ( l6) ] , [ B ( 10) *1 3 , 0,0] ' 

PLOT [-7*13, -20, U] ,X$(27) J , [ B ( 2 7 ) *13 ,0,U] 

PLOT [-14*13 ,-20. 50*20, U] ,[, ,X$(30) ], [D(30) *13 ,0,U] " ! 

PLOT -7*13, -3*20, U ] , [ , . X$ ( 3 3 ) ] , [ 3 < 33 ) * 13 , 0 , U] 

PLOT 20*13,26.25 * 20 U] , ( , , X$ ( 13 ) ) , ( 15 (1 3 5 *h , 0 , U ) — 

PLOT -9*13,-2*20,1’], t,,"T- A ].[,,X$(15)],[B(lS)*13,0,U] 

PLOT -9*13, -4*20, U ] , [ , , X$ ( 12 ) ] [ B ( 12) * 13 , 0 , U ] j . ] ) 

PLOT -6*13,-8*20 U] , [ X$(47)J , [ B (47) * 13 , 0 . U] 

PLOT -7*13,-20,U],[,,X$:('2.6)],[B(26)*13,0 Uj 

PLOT -16*13, -11. 25*20, U] ,[ ,X$ (14)] , [B (14) *13, 0,U] 

PLOT [3*13, -20, U] , [ , , X$ ( 2 & ) J ) [B (2 8 ) * 13 , 0 , U) : 

PLOT [4*13, 20, U] , [ , ,X$(31) ] , [B(31)*13 ,0,U] - i— ~.. 

PLOT 5*13, 26. 5*20, U] [ , , X$ (32 ) ] , [ B (32 ) *13 , 0 , U] : 

PLOT -5*13, -8*20. U] , [ , , X$ ( 1 7 ) ] , B ( 1 7 ) * 1 3 , 6 , U J . : i . ] 1. ' 

PLOT |-7*13, -20, U].[,,X$(29)],[3(29)*13,0 uj 1 i j 

PLOT [-9*13,-11.5*20 ,U] , [ , ,X$( 1T6) ] , [b(1o)*13,0,U] 1 ' 

PLOT [,,R], [30*13, 33. 75*20, U] , [.."CASE: "] [ ,A$(K)], • 

[3*13, 0, U] ,[, ."DATE: "],[,, 15 ?,[,, R ] ” ’■ ■■ 

vSELECT PRINT 005 {PRINT - HEX(03) ' = ' : ' 

y ( i) - y (i) +i i v~~~- [ • " • ‘ — 

LOAD DC R "RSECS” "" : \ ; :* ‘ ; ^ - : - 
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350-M HEAT EXCHANGER TEST DATA ANALYSIS PROGRAM 


File Name "350-M HX" 

Abstract "350-M HX" analyzes test data and provides revised per- 
formance curves for the 350-M heat exchanger. The pro- 
gram is designed to be used with a WANG 2200 - series 
computer system. 

Program Description 

For a maximum of 50 data points, the program will iterate the hot or 
cold side hA to obtain a UA balance. Curves of hot side film coeffi- 
cient verses air velocity and cold side film coefficient versus water 
flow per start are stored in the program as internal data. These 
curves and water vapor property tables are interpolated bv using an 
adaptation of the Hamilton Standard Division’s "UNBAR" routine. 

Expected program operation is as follows. 

1. Run all data points for a hot side UA balance. 

2. Use calculation results to revise curve of hot side film co- 
efficient versus air velocity. 

3. Run data points again for a cold side UA balance. 

4. Use calculation results to revise curve of cold side film 
coefficient versus H 2 O flow/start. 

5. Repeat steps 1 through 4 until film coefficient curves no 
longer need revision. 

For user reference, sample cases, figure 12, and a program listing, 
Table XI, are enclosed. The CRT prints the requested input data 
requirements with notations for the required units. If one of the 
dewpoint measurements is not available, or the secondary water cir- 
cuit was not used, zero’s should be entered in the appropriate 
locations. The output data provides all information necessary to 
revise the performance curves. In addition, a heat balance value 
is printed to give the user an indication of the data point validity. 
The heat balance calculation is the air side sensible and latent 
heat divided by the water side total heat. The program listing will 
provide the user with the calculation procedures used in the program. 
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RSECf, 350-M HX PERFORMANCE / HOT SIDE BALANCE 

CASK r : 1 

DATE : 7/3/74 


INPUT DATA. - 


T RS-.U INLET 

= 

70.00 

T RS-11 REWPT 

= 

50.06 

T 350-M INLET 


70 so 

T 350-M DEUPT 

— 

50.05 

T 350-M OUTLET 

- 

38.10 

APS OUTLET FLOW 

= 

7.3 . 27 

RS-51 FLOW 

— 

10.00 

CHAMBER PRES SURE 

- 

29.92 

T PRI 1120 INLET 

— 

35.00 

T SEC H20 INLET 

= 

0.00 

T PRI H20 OUTLET 

= 

48.48 

T SEC R20 OTTLFT 


0.00 

pri H?.o flow 


498.00 

SEC 1120 FLOW 

= 

0.00 



OUTPUT RATA - 

TOTAL II 20 FLOW 

= 

A°R . 00 

H20 FLOW/ START 

= 

240 . OR 

TOTAL AIR FLO’” 



07 7-7 

AIR WEIGHT FLOW 

= 

350.63 

AIR VET ,0 CJ.TV 

= 

04.48 

TOTAL HX UA 


773.42 

COLD SIRE IIA 

= 

2588.11 

COLD FILM COEFF 

= 

368.19 

HOT SIRE HA 


10 °. 6.31 

HOT FILM COEFF 
Q TOTAL 


°. 18 
5214.08 

0 SENSIBLE 
HEAT BALANCE 

= 

3858.63 

0.931 

0 LATENT 

= 

1258.5° 


RSECS 350-?! HX PERFORMANCE / HOT SIRE BALANCE 

CASE Pz 2 
DATE : 7/0/7 A 


INPUT RATA - 
T RS -11 INLET 

T 350-?! ret tp t> 

RS-51 FI ,0V? 

T SEC II 30 INLET 
PRI U20 FLO!? 

OUTPUT RA^A - 
TOTAL K20 FLOW 
AIR WEIGHT FLOW 
COLD SIDE HA 
HOT FILM COEFF 
0 TOTAL 



85.46 

T RS-11 REWPT 

55.25 

T 350-M. INLET - 

95.31 


55.25 

T 350-M 0UT7.ET 

43.58 

ARS OUTLET FLOW a 

282. 35 


10.00 

CHAMBER PRESSURE = 

29.92 

T PRI 1120 ILL FT = 

4 ? . HO 

— 

0.00 

T PRI 1120 OUTLET « 

57.55 

T SEC H20 OUTLET = 

0.00 

53 ? 

597.00 

SEC 1120 FLOW 

0.00 




® 697.00 

H20 FLOW/ START 

= 348.50 

TOTAL AIR FLOW 

— 70 ° 0 3 

* 1257.84 

AIR VELOCITY 

331.65 

TOTAL IIX UA 

= 1283.10 

= 4067.1° 

COLR FILM COEFF 

= 557.08 

HOT SIRE HA 

= 1874.60 

= 15.82 

0 SENSIBLE 

- 14106.96 

0 LATENT 

= 2 74 4. a 6 

= 17250.75 

HEAT BALANCE 

= 0.976 




FIGURE 12 RSECS 350-M HEAT EXCHANGER PERFORMANCE /HOT SIDE BALANCE SAMPLE CASES 
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RSEOS 350-M HX PERFORMANCE / COLD SIDE BALANCE 


CASE #: 1 

DATE : 7/8/ 7 A 


INPUT DATA - 
T RS-11 ITTLET 
T 350-M DEWPT 
RS-51 FLOW 
T SEC H20 INLET 
PEI H20 FLOW 

OUTPUT DATA - 
TOTAL 1120 FLOW 
AIR WEIGHT FLOW 
COLD SIDE HA 
ROT FILM COEFF 
Q TOTAL 


70.no 

T RS-11 DEWPT 

50.06 

50.06 

T 350-M OUTLET 

36.10 

10.00 

CHAMBER PRESSURE = 

29.92 

0.00 

T PR I H20 OUTLET = 

46*46 

493.00 

SEC H20 FLOW 

0.00 


493.00 

H20 FLOW/ START 

249.00 

36Q. 6 3 

AIR VELOCITY 

94. A 6 

2541.08 

COLD FILM COEFF » 

343.05 

9.60 

0 SENSIBLE 

3853.63 

5214.06 

HEAT BALANCE 

0.0,81 


T 350-M INLET 
ARS OUTLET FLOW 
T PR I H 20 INLET 
T SEC H20 OUTTjET 


TOT AX AIR FLOW 
TOTAL RE UA 
HOT SIDE FA 
0 LATENT 


70.5° 

73.27 

3=; on 

o.on 


Q"> 0 "7 

. . 

735. 6? 

1137.6° 

1258.52 


RSECS 350-M HX PERFORMANCE / COLD SIDE BALANCE 

CASE P : 2 

DATE : 7/8/70 


INPUT DATA - 

T RS-11 INTXM 

= 85.46 

T R.S-11 DEWPT 

T 350-M DEWPT 

= 55.25 

T 350-7-t OUTLET 

RS-51 FLOW 

= io. on 

CHAMBER PRES STIR 

T SEC K20 IN7,E.T 

= o.oo 

T PRI H20 OUTLE' 

PRI 1120 FLOW 

= 697.00 

SEC IL20 FLOW 

OUTPUT DATA - 

TOTAL 1120 FLOW. 

= 697.00 

H20 FLOW/ START 

AIR WEIGHT FLOW 

= 1357 . 96 

AIR. VELOCITY 

COLD SI F. FA 

= 3 n 06 . 07 

COLD FILM COEFF 

HOT FIL V COFFT’ 

9= 1.6,29 

0 SENS TRIP 

0 TOTAT, 

- 17250.75 

HEAT BALANCE 


55.25 T 350-M INLET = °5.31 

43.50 ARS OTTTLET FT ..ON = 222.7 5 

29.92 T PR I 1120 INLET - 42. ^0 

67.55 T SEC H20 OUTLET = n.Qo 

0.00 


= 343.50 
= 371.65 
= 5.35.13 
= 14106.96 
= 0. °76 


TOTAL AIR FLOW 
TOTAL I El TTA 
NOT SIDE HA 
0 LATENT 


•as 700 ^ 

-- . 

— 1 ? o *? 3 ,c 

= 274A . An 


FIGURE 13 RSECS 350-M HEAT EXCHANGER PERFORMANCE /COLD SIDE BALANCE SAMPLE CASES 
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Table XI 


PROGRAM LISTING 



10 


20 


30 


40 


50 


60 


70 


80 


REM - 350-M HX PERFORMANCE : 
rtlM A(50,14),X(200),Y(3) : 

IF Y (1 ); 1 1 THEN 1 5 0 ; Y (1 ) =1. 

FinR - MATER VAPOR PROPERTIES - TEMPERATURE Q > : 

nATA 32,34, 36, 38, 40,42, 44;,4 6 # 48,50,57, 54, 56^58, 80,62,64,6* 

; • 63,70 

REM - WATER VAPOR. PROPERTIES - PRES SI rj>y.; (71): 

DATA .03354, .09603, .10401, .11256, .1717 ,.1315 ,.14100, 
.1532,3, . 16525 , . 17311, . 19172, . 20642 , . °22 , . 3386 

DATA- .2563 , . I- 7 5.1 ,.295! ,.3164 ,.339; ,.3631: 

REM - WATER VAPOR PROPERTIES - ’ENTHALPY (41) : 

DATA 1075.3, 1.O74 , 7 ,107 3.6,1072 .4 ,1071.3,1070.1,1 068 . 9 
DATA 1067.7, 1066 .7,106 5 , 6 , 1 0 6 4 . 4 , 1 0 6 3 . 3 , 1 06 2 . .2 , 1 D6 1 
1050.9,1058.3,1057.6,1056.5,1055.5,1054.3: 

;rfm - water ;8Tpr fjj,m coerfic iettt (6.i) 
da^a 9 ,0 - \*aoo,i5 : n, 200,250,300, 350,400,450,500,1 34,1 «p 
; 272, ,370,|6'63,. 560, 655,765, 360: 

REM - AIR. SIDE” FILM COEFFICIENT (81) • 

DATA 13 ,0 ,100 ,2on ,,309 ,400 ,300 ,600 ,700 ,800 , 

900 ,1005,1100,1 200,1300,9.6 ,13:. 2, 15. 0,17. 7,19. 5, 

... . 21,2,22, *,2/. , ,25.3,2/,./:, .27. .5 1?.* .5 ,f> ' _ ; 

INPUT M / ! Oi' CASES (1-50) = ",Y42): 


. input 

■■ INPUT 


1 JVTE \ 
or DAL 


'=1 


= ",A5: 

ttv='>’> ‘=i " v MV 

■ * '-■***■* : 


90 FOR; 7=1 TO Y (2) : SELECT RPJNTMO05 : 


- ' 

PRINT 

"CASE F 

. . 1 * ' 


«‘.v ■ 

> 

: loo 

INPUT 

"T...RS-X,!; IN 

(DEC r> 

■ = 

”,A(7,.l): 


INPUT 

"T RS— IX. PEUPT 

(PEG F) 


n ,A(7,2): 


.INPUT 

”T -350-M IN 

(DEG F) 

= 

" jA (7,3) 

110 

IJTPTTT 

"t 350-M PEWRT 

(DEG E) 

= 

H > A (7, 4) : 


INPUT 

"T 350-M OUT 

(DEC F) 

= 

,t ,A(7,5) : 


1‘TPT.TT 

"APR OUTLET FIRM (CFM) 

= 

",A ^7,60 

120 

INPUT 

"RS-51 FIRM 

(CFM) 

= 

'\A(Z,7): 


INPUT 

"P CHAMBER 

(IN IIC) 

= 

" ,A(7.,P) : 


INPUT 

"T PRI U20 IN 

(DEG F) 

= 

h ,A(7,9) 

.130 

INPUT 

"T SEC H 20 IN 

(DEG F) 

= 

m ,A(7,10) 


INPUT 

"T PRT H20 OUT 

(DEG FI 

~ 

",A(Z,11) 


INPUT 

"v SEC II 20 OUT 

(DEG F) 

~ 

M »A (7,12) 

140 

INPUT 

"PP.I 1120 FLOW 

(LB/ UP.) 

= 



IMP IT 

"SEC H20 FLOW 

(LB/ HP) 


", A (7,X.4 ) 


NEXT /. 

1.50 Ip Y(i)r«y(2) TIRE 160: Y(1)=0: GOTO 610 
160 FOP. Z=i TO 14: X(7)=A(Y(1) ,7) : NEXT 7: X(17^=X4l 3^+x4l4)* 
X(15>«(:r(o)*x(13)+X(10)*-(i4))/( X (x^+X(l/^3 : 

X ( 1 6 ) = (X ( 1 1 ) (13) +X ( 1 3 ).*X .( 14)) / (X (1 3 ) +X (1 4 ) ) 

170 X(I8)=X(17)*(X(16)-X(15)) : IF X(13)=0 THEN 180: 

IF X (14) — 0 THEN 180: X(30)=X (17) /4 • GO- 0 1 QO 
130 X ( 3 0 ) =X (.1 7 )./ 2 

190 PR STORE 61: FOR 7=101 TO 120: READ X(7): NEXT 7: 

80 SUB , 02(X(30) , 0) : X(31)=Z1: IF XR13)=n THEN 200; 

IF X(14)-0 TURN . 200: X(1P)=27*. 54.0.3*:: (.31) : GOTO 210 
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Table XI 


PROGRAM LISTING (CONTINUED) 



200 

210 

220 

220 

240 


250 


260 


270 


200 

290 

100 

310 

320 

330 


: 340 
■350 

1360 


370 

390 


300 
A 00 


410 

4?n 

,430 


A A. A 
450 

A 60 


X(l9) s =27*.5408*X(31) /2 

X(20)=X(6)+X(7): IF X(2)]0TUKN 220 : x(9l'i=x(A'> * goto 
IF X(4) 10 THE X 230: X(2l)*X (2) : GOTO 240 ' 
X(21)=(X(2)+X(4))/2 

X (101) “20: X(102)=0: RESTORE 1: FOP £“>03 to i/t. ? T? m v(»\ 
imxx Z: GOST m •o?.(x<5),o)t n»zi: nosim 0 T. A~?,v 

X ( 2 2 ) = 1 4 4* 6 0* ( ;r (8 ) * , 4 91 3-R 2 ) *X ( 2 0 ) /53, 35/0; (1 3+459 6.3 
X(23)= . 24*x(22)* (X(3)-X(5) ) : A3=.627*P1/ 6X(8)* 49i 2-Pi 3 * 
A2=. 622*92/ (X (8)*. 4912-P2) : X(24)=1065*X(22)*(A2-A33 * 

X (25) = (X(23)-KX(2A) ) /X(18) » X(26)“X(2C) /•. 88] 5 
RESTART 81: FOR Z=I0I TO 128: nr AD x(Z): NEXT 7. 

GOSim 1 02(X(26) ,0) ; X(29)“Z1: X(27)=313*. 54 OS*;-; 6203 . 

IF X (13)=0 THEN 380; tr X(14)=0 THEX 280: 

GOTO 2°0 


X(77)=.. 9*7(27): 

7(27)=. 7*X(27) 

H1~X(19) : 1I2=X(27) 

07 v( 9 ) goto 310,390 
X(27)-H2: GOTO 330 
X (19) =111 
H=X( 27 )/x( 19 )j 

Tl= ( .24 *X (22 )*X (3)+7 (17) * (0*X( 2 1 34-X( 2 \ ) — 7 / 1 6 ) ) w 

(K*X(17)+. 24*v( 22 )) ' ■ " 

01=. 24*x(22)* (Ti-x(5) ) : 02 = 01 + 7 ( 24 ) : IF 02[X(18) THEN 350 . 
Ul- 0 : T2~X(16) : T1=X(3): Q1«X(2.3): 02=X(13) • goto 360 
T 2=X (7.1 )-H* (Tl-x (21 )j : ; Kl= (X(3)-T1) / (X639-T21 : 

M1=X(17)/ (.24tX(22)^"%i3SUR *0] (JO ^ 

Ta=^24*xp;2)*K - ; .. . V \* 

E2= (TlrX (5 ) ) / (Tl-X (15) ) : M2=X ( 1 7 > *01 / ( . ?4*x (27 ) ) / 0 *> • 

GOSTTB f 0l(K2,M2): TT2=. ' 1 4*X(22)*x*02/oi : 

U3=((l/M)/ (1+1/TT.) ) * 01 / 0 . 2 + ( 37 ( 1+1 /UO; V( 79 \«in 4 -TT 7 *TT 3 
ON 7 (3) GOTO 390,600 ' ’ " 

112=1/ (1/X(29>-1/X (19)) ; IF APS ( (7(27)-4f2) /X (27> ] T= o 
T]JKN .500; X(29)=X(27)/3!3/. 5408; TR x (7 3 )a S n THF?7 390 * 

IF X(14)=n t?!K:T 399 : X (3 9 ) =7 (2 9 ) / . 8 : GOTO 470 

X (2°)=7(29) / . 7: GO^O 400 . 

PI-?./ a/S(2P.)*J./X(27» : IF AFS C(xO o>- H n/>-(i on 1 - 
TMHr 300: IF X(13)=0 T!T?I 410: IF ;i(M)=n TOrYaiV'’" “ 
X(31)=X(19) /27/ . 5 / 03 : goto 470 
7(310=2*7(10) /P7/.540A 7" 

SELECT PRINT 2.11 (156): FF.I?T7 ?IFX(0D0E): 

ON 7 (7) GO^O 43 a /./»o ’ J "’: 

PRT^NP "RSr.CS 39 A_h }av PERFORMANCE / T T OT S-TOF CAT Avri:». 

ERU T T I T .EX(0A) : ! ' " 1 * 

GOTO 480 

R^IN-. RSLGS .35 0-4 t K.X PERFORMANCE 7 GOLF STRF PAJANGF ,r . 
PRINT HEX(OA) ‘ BALANCE . 

PRINT "CASE *: ”;Y(1) : 

PRINT "NATE : n ;AS; PRINT HF y 60A]* 

PRINT "INPUT KATA * 

PRUITT IS IMG 510, X(l), 7621,763). 

PRI^TT;SINa. 520-,x 6A1 .v/ 5 l X ( 6 >- 
PRINTUSING 530,X(7),N(8)*X(9)‘ 


42 



Table XI 

Hamilton U 

■ _ Division c» united coepfXMTON ; - _ ■ 

Standard 0® program listing (continued) 


£9^ 

b? fe 

II 

p O* 
3 03 

II 

A, 


T RS-U DEKPT 
T 350-M OUTLET 


■ 47 0 PRIMTUSINC 540,X(lo) ,M (IT ) : 

PRINTUS t MO 55 0 , X Q 3 1 , X (.1 4 )• : 

PRINT HRX(OA) - 

-480 PRINT "OUTPUT RATA - ,L :' ' ; 

PRIMTUSE5G- 560,X(17) > X(30) S > X(?!0): 
PRIITTUSIMO 570,X(22),MX26>,X(28) 

4on prtmtusxtto 530,x(i rt ),x(3i),x(27): 
PRINTUSING 590,X(29),X(23Y,X(24) : 
PRIMTUSINO 600,X (IP) ,X(25> 

500 -pniAIT- ?!RX(nAOAOAOAOA) : 

Y (1)=Y(3:)+1 J GOTO 150 
510 f'T RS.-H INLET ^-ft ft ft ft ft. ft ft 

330— M XMLE™ ■ _ _ji n jt ji jl jt ti 

•520 %T 350-M REWPT --rrftrft..ftft 
RS; OUTLET FLOW --ftftftftftft.ftft . 

\530 NRS-51 'FLOW'" 
i PRI 1120 INLET ; =*-rr-/'r“. 

; 54 0 . XT SEC U20 II ILFM = -ft ft ft ft ft ..ft ft 
SEC 1120 OUTLET ‘ = - ft ft ft ft ft . ft ft 
;550 %PRI H 20 FLOW ' ^ -ft 1 - ft ft# . ft ft 

’560 %T0TAL H20 . FLOW =-ftftftftftJ l ft 
'OTAL AIR FLOW - “ft ft .ft ft'' 

570 %AT.R WEIGHT FLOW =-ftftftftft.ftft 
OTAL KM -UA , ft ft ft ft . /W' 

i5RO;%COLr> S IRE HA' f ft ft ft ft. 

'OT SIDE HA f aJgftftftftjift, : ]' T 
;590 ' %KOT ' FIJI T COEEF .-ft ft 

T LATENT” ; ~ ^Jftftftftft ; ft ft - ■ * r ; - 

:r»oo 7'o total < = -.ft ft ft ft ft . "ft heat balance 

‘610 Elio ' . 

r 620 nEFT?iT'01(E3,M3) 

630 IF M3-1 THEM 660: IF M3]l THEN 6.30: 

K-H3/ (l-K3)*LOG ( (1-E3) / (1-E3/M3) > : GOTO 660 
640 K=F,3/(1-E3): GOTO 660 =; * ~ 

65 0 K-K3/ (M3-1 ) *1,00 ( (1-E3 /M3 ) / (1 -E 3 ) ) 

660 RETURN 

,670 HEFFN* 07(01,01) 

'600 DIM AI(6),Xl(6),vi(0) 

690 11=101: n»3s U2=2 

700 IF X(I1)=3 THEM 740: IF X(tl)]3 THEM 750: 

IF X(Il)ro THEM 770: IF X(U)=0 THEN 740: 

IF X(T.1) = 2 THEN 720: IF X(ll) ]2 THEN 740 

710 N=l: GOTO 730 i 

720 N=2 ! 

730 N 2= 1 

740 11=11+1 ”• 

750 N1=N+1 

760 L=I1: IE X(L) ] 0 THEN 780 ' 

770 Kl=-1: 7.1=0: GOTO 1050 

700 H0=X(L): ; 

IF H(L-fl) [0 THEN 770: IF X;(L+1)]0 THEN 800 


-ft ftft ft ft. ftft A 


_ Jl Jt Jt Jt A Jl ft 


CHAJ33ER PEESSTTEE 
T PRI 1120 OUTLET --ft ft ft ftft. ft ft T 


SEC H20 FLOW 
1120 FLOW/ START. 

AIR VELOCITY 

FILM COEEF' 

'SIDLE 


o 


. ft ft 

_ Jl ", Jl Jt JL Jt Jl rp 

r v r Mr . ?-r i 

=-fti T 


Jt .<*. Jl « «i .If ,» 

'V 7: if • ; ;■• r 


t JiJtJi/ijf ji ji p 
ji ji ji jl jt ji j: 
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PROGRAM LISTING (CONCLUDED) 


790 IfSfO: GOTO RIO' 

. Boo NPj=X (I,+T) 

; 810 Kl«0: KR-0: C2=C1: JI-I3.+2: j2=N9+H+1: 

' iKc'2T'X(jl) THEN "850; ' IF 02=X(J1) THEN 860 

820 TOR J=J1 TO J2j IF C2[=X(J) THEN 870: N EXT J 

830 Kl=2: C 2=X (J2) ■ • > . ; . . . 

840 JTOf J2-N: GOTO 880 • • 

850 Kl=l; C2«X(J1) i 

860 GOTO 880 

870 IF; J-J1(1 THEN 850; IF J-J1=1 THEN 860: 

, IF J= J 2 THEN 840; IF J]J2 THEN 830: 
jq«j-N2 

880 03=02: IF NP]0 : THEN 890: FOR ]>1 TO N1-: Xl(L)=H(Jp): 
L8«J9 +h 9-: Y1(L)=X(LP); J9=Jp+l: NEXT L: 1=1: GOTO 970 
890 J1=J.1+N9: J 2= J 2+N8 : 02=01: IF D2[X(J1) THEN 920: 

IF D2=X(J1) THEN 980: FOR J=J1 TO J2; * ? 7 '* 

IF, 02[=X(J) THEN 940: NEXT J '* 

900 K8=6: 02=X(,T2). 

910 J8=J2-H; GOTO 950 " ” . r ,3^ 1 '» ‘ ; ' 

9.20 TC8 =3 : R2=X(J1)" ' .. | 1 ; \ L ! 

930 J8KT1: GOTO 950 • 

940 IF J-Jl [1 TEETH 920;. t.f J-J1=1 THEN 930: 

IF; J=J2 THEM 9l0: IF J]J2 THEN 900: Jp-J-H? 

950 J7fJ9: L8=J8 +NB*(j7-ti~i) : L7=LP : FOR L=1 TO NX: 
i : X1(L)=X(J7): Y1(L)=X(E7): L7=L7+N8: J7=J7+1: NEXT L: 

; 1=0: .GOTO 970 ! ‘ 

.9*0 Y141)=Z1; FOR 1=1 TO N: 17=18+1 ; Y1(I+1)=0: FOR M=1 TO N1 
, Y1(I+1)=Y1 (T+\1)+X(L7)*X1 (TO : L7=L7+M8: NEXT M: NEXT I: 

FOR L=1 TO Nl : XI (L) =X (J8 ) : J8=J8+1: NEXT L: C3=R?: 1=1 
970 n-1: XI (H+2)=X1(1) : XI (N+3)=X1(2) : FOR J=1 TO Nl: 

A1 (J+1)=X1 (J+1)-X1 (J) : 04=0 3 -XI (J> : IF 04 r in THEN 990 : 
X1=Y1 (J) : XI (1)=0; Xl(2)=0: Xl(3)=0: Xl(41=0 
980 X1(.T)=1: GOTO 1040 
pen R=T)*0: ON N G0 T O 1000,1010,1020 
1000 X1(J)=C4/A1(J+1): GOTO 1030 * . 

1010 X1(.T)=-C4: GOTO 1030 
102 0 XI (j ) = (XI ( j-i- 2) -XI (J ) ) *04 

1030 NEXT J: A1 (1)=A1 (T-T-K?) : 21*0: FOR J=1 TO Nl: 

XI (J)=P/ (A1 (J) *A1 (J+l) *X1 (J) ) : 7.1=7 1+Y1 (J> *xi On ; • 

NEXT j ' * ' 

1040 IF lf=0 THEN 960 . 

1050 K1=K1-HCP: • • I 

RETURN . 
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350-M HEAT EXCHANGER PERFORMANCE PREDICTION PROGRAM 


File Name "CONDHX" 

Abs tract • "CONDHX" uses inlet temperature and flow data to pre- 
dict performance of the RSECS 350-M condensing heat ex- 
changer. This program runs on the WANG 2200 minicompu- 
ter system. 

Program Description 

This program uses predicted curves of air and water side hA's versus 
flow combined with a "pinch point" analysis to predict performance of 
a condensing heat exchanger. 

The user supplies input temperatures and flow rates as requested and 
the program generates values for outlet temperatures and total heat 
exchanger heat load. 

Sample output, Figure 14, and a program listing. Table XII, are en- 
closed for reference. 

CONDHX was used to predict performance for test points of the RSECS 
cabin heat exchanger test. 


PRT 
PUT 
SEC 
SEC 
A I R 
TIN 


**** RESULTS **** 
COOLANT FLOW ( LB /HR) 
TIN = 45 • PRI TOUT = 

COOLANT FLOW (Lii/ilR) 
TIN = 45 PRI TOUT = 

FLOW RATE ( C F M ) 

» 75 TDP » 53 TOUT 


375 

59. 37423365213 
375 

59.37423365213 

317 

» 4 8.59 069 8 242 


18 


q LATENT 
Q SENS 
Q TOTAL 
LAC = 


= 1932.525554251 

= 3848. 14 684856 

- 10780.6752391 

3760.11 UAH = 2262.78 


LA 


1412.66 


FIGURE Ik RSECS 350-M HEAT EXCHANGER PREDICTION SAMPLE RESULTS 
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Table XII 


PROGRAM LISTING 


REM - 3 5 0 - M HX PERFORMANCE PREDICTION PROGRAM 
GIVEN TIN FOR 'GAS AND' COOLANT FIND TOUT AND 0 • - : " " " ‘ 
dim x (50 ) 

DEFFN1 (X) =3 . 10719762E-02+2.71331473E-04*X+4„56164060E-05*X!2 
-7 .17044 935 E-08*X! 3+4 . 019 62 Q80E-09*X ! 4+1 . 045 7 506 4E^11 *X ! 5 ; 
DEFFN2 (X) =106 . 7019036671- . 792 5 6288304 07*X+1 .421 37844 E-02*X! 2 
-4 . 08 70j2 9 9 0E-05 * X ! 3+6. 35142232 E- 08 *X!4-4. 04 697326E-11*X!5 
DEFFN3 (X)=7. 304894511852 +3. 19172743E-02*X-1.83198194E-05*X> 2 
+6. 78877862E-09*Xf 3-1. 192 9 3620E-12*X ! 4+7 . 52444916E-1 7 *X ! 5 
FOR 1 = 1 TO 50:X(I)=0: NEXT I 

PRINT HEX(03) : PRINT "INPUT AIR SIDE CONDITIONS" 

INPUT "AIR, FLOW RATE ( CFM) = " X(20); 

INPUT "AIR TEMP IN (F) » ”,X(3) : 

INPUT "AIR DEW POINT IN (F) = ", X,( 2 ) : PRINT 
PRINT "INPUT PRI COOLANT LOOP CONDITIONS" . 

1 INPUT "PRI LOOP FLOW (LB/HR) « ,( ,X(13>: 

INPUT "PRI LOOP TEMP IN (F) = ”,X(9) SPRINT 

i PRINT "INPUT S EC : COOLANT LOOP CONDITIONS" 

> INPUT "SEC. LOOP FLOW (LB/HR) = ", X(14): 

INPUT "SEC LOOP TEMP IN (F) = " , X ( 1 b ): PRINT ' 

i PRINT HEX(G : 3) :PRINT :PRINT :PRINT : 

PRINT " **** COND HX PROGRAM IS RUNNING ****'• 

1 PRINT .SPRINT " -,4-: T CALC . ■ T GUESS " 

X( 17 ) =;x( 1 3)+X( 14) , . irti 

X ( 15 ) =v( X (9 ) *X ( 13 ) +X ( 10) *X (14)T/^(X ( 13) +X ( 14 ) ) . . 4 . 

K9- ( X (3 ) -X ( 15 ) ) /2 ; X ( 5 ) «X ( 15 ) +K9 1 

IF X(13)=0 THEN 200 ’ ' . ; • ■■ 

IF X(l,4)-0 THEN 200 ;X ( 30 ) =X ( 17 ) / 4 : GOTO 210 ' ’ 


X ( 3 0 ) = X (17) / 2 
X ( 8 ) = 3 0 : X ( 1) = X ( 3 ) .. 

X ( 3 1 ) = FN 2(X(30)): 

IF X (1 3) = 0 THEN, 230; 

IF X ( 1 4 ) =0 THEN 1 230 ; X ( 1 9 ) = 2 7 * * 54 0 8*X ( 3 1 ) : GOTO 240 
X(19)=27**5408*X(3l)/2 
X(21)=X(2) :X( 26) =X(2Q) /. 8815 
X ( 2 9 ) * FN 3 ( X ( 2 6 ) ) : X( 2 7 ) =3 1 3* • 5408*X ( 2 9 ) 

IF X ( 1 3 ) =0 THEN 270; IF X(14)=0 THEN 270: 

X(2 7) = . 8*X(27 ) : GOTO 280 ‘ "T- 

X (2 7) = . 7*X( 2 7) 

Hl=X( 19) ; H2 = X ( 2 7 ) 

U-H1*H2 / (H1+H2 ) 

P1 = FN1(X(5) ) : P2 = FN1 (X(21) ) : 

X( 22) =144*60* (X(3)*«4912-P2) *X(20) /53. 35/ (X(l)+459. 6) 

IF X(2) ] X ( 1 5 ) THEN 33 0 : X ( 24 ) =0 : L= 0 : GOTO 620 ' ' , 

X ( 2 3 ) = , 2 4 * X ( 2 2 ) * ( X ( 3 ) - X ( 5 ) ) 

A3 = , 6 2 2 * P 1 / (X(8)*»4912-P1) : 

A2=. 622*P2/ (X(8)*«4912-P2) : X ( 24 ) = 106 5*X ( 2 2 ) * ( A 2- A3) 
IF X ( 2 4 ) ) 0 THEN 3 6 0 : X ( 18 ) =X ( 2 3 ) : X ( 2 4 ) = 0 : GOTO 370 
X(18)=X(23) +X (24) :■ 

X(16)=(X(23)+X(24)) / X ( 1 7 ) +X (15) 

H=X (27) / X ( 1 9 ) t > * ■ • 

Ml=X( 17) /(• 24*X(22) ) ’ 

IF X(2)[X(3) THEN 410:T1=X(3 ) : T2=X (16) : U1=0 : GOTO 480 


2 7 * • 54 0 8*X ( 3 1 ) : GOTO 
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Table XII 

PROGRAM LISTING (CONCLUDED) 


|420 

1430, 

440 

1450 

1460 

i 4 70 
480 
44 90 


[500 0 
510 M 
■520 K 
■530' U 
■ 54 0 K 
;550 G 

.1560 t 
(570 Q 
1580 I 

15 90 I. 

•610 X 
6 2 0 M 

16 3 0 K 

|6 4 o g; 


Tl a ( ' 214 *'X( 22) *X ( 3 ) +X ( 17)* (H*X (21) +X (21 ) -X ( 16 ) ) ) / 
(H*jX(17) + * 24*X(2 2) ) ! ■; 

T2 - X ( 2 1 ) -H* (T 1- Xi ( 2 1 ) ) I ... 1 ■ i. 

IF T2]‘X (15 ) THENi 440 ; GOTO [6 2 0 ’ [ ' i ’ • 

El» (X(3) -Tl.) / (X( t 3) -T2) ; ‘ ; j i ill. I 

IF El pi . 0 THEN 460 ; El® . 9 9 - ■ • \ ; 1 ! - ! ■ 

GO S UB V f 01 ( E l , MI ) ; ; 171-72 4 * X (!2 2 ) *K " “1 " ’ — ^h'1 

IF U1[U THEN 480; GOTO 620 : i 

U2=U-U1 j • • ; 4 • 

Q 7 = X ( 1 8 ) - X ( 1 7 ) *, ( X (16) - T 2 ) ! • ■ . 1 ... 1 : 


Q8“Q7-;X(24) 

M2==M1*:Q8 / Q7 ! 

Kl-1/ (il+l/H) + l/Hi*Q8/Q7/(l+l/H) 

U3=*U2/Kl 1 • ■” - 

K 2 ~ U3 * 0 8 / Q 7 / ( • 2 4 * X ( 2 2 ) ) ! ( 


K 2 * U3'*Q.8 / Q 7 / ( • 2 4 * X ( 2 2 ) ) ‘ ' ! 

GOSUB !* 02 (M2 , K2 ) - ■ ' * M 

T0“T.l-iEl*(Tl-X:( lj5) ) * ! ’ : i ! 

Q1=»X (l| 8 ) : Q2=X ( 24.) + • 24 *X ( 2 2 ) * (X ( 3) -TO) ' K TT. : * 1 (. 

IF ABS|(Ql-Q2) [ • 20 THEN 7 2 0:; PRINT , T 0 , X ( 5 ) ; 1 • 

I F. 413:0 2 T H E N .610 4 , , . ; j ; 

X (-5 > 5 ) -K;9 ; K 9 / 2~: X < 5 ) -X ( 5 ) +K 9 ; GOTO 3 00 — . t- — - 1- 
X; (5;) =Xi(5 ) +K9 : K9=*K9;/ 2 :X (5) =jX\5) -K9 ; GOTO 3 00 1 ; ” 1 

M2 = X ( 1(7 ;) / ( X ( 2 2 ) * * 24) f 1 ! . ' i . ; ll’': . ! 

K2=»U/(X(22)** 24) ; • ' ; ■ . : ■ r \ . ■ : 

g; 0:SUB i f 02 (M2 ,K2); ' 'il’TIlt - 

IF L-lj THEN 660;; X (5) »X ( 3) -El * (X( 3 ) -X( 15 ) ) s GOTO 680 ? 
TO = X ( 3D - E 1 * ( X ( 3 ) -X ( 1 5 ) ) . • 1 ? [ 1 r 5 ‘ 

I F T-0-J-* X ( 2 ) THEN- 690 ; G 0 T 0 570 - ■ .1 1 il IjJL 

IF X(5)]=X(2) THEN 690: GOTO 570 ,i; 

IF L = Oj .THEN 7 0 0 : X ( 5) ?= TO 4 J. . ; ; : ‘j 

X ( 1 8) *!X ( 2 2 ) * • 24 *|( X ( 3 ) - X ( 5 H X ( 1 8 ) ; X ( 2 4 ) » 6 -J ' • f ( 

VM’f.VU^’T -Ot.\ l/v/TTAi-WT-p S ■ -■ .-LX-.'-.f ■■ f— Z*. ..... 44. A L 


> 7 1:0 x (:i 6 ) =x( 1 8 ) y x.( i 7 D >x( 15 ) : - rf-r 1 1 — 1 m T t-. - 

7 2 0 PRINT j: PRINT ; PRINT ■: : . ■ ' . ; , ’ : f j J 1 ' 

: j INPUT "LOCATION OF OUTPUT ( !« CRT , 2»P RINTER) '* L B 1 
J 30, SELECT PRINT 0 054.1 F . B~1 THEN .740 :.S ELECT ‘..P RINT.Il 1(64) 
1740 PRINT HEX(03) **** RESULTS ' •’ T\ 

|7 50 PRJNTi H PRI COOLANT FLOW (LB/HR) ° :X(13) ’ : ' ' i r ' * • 

1 PRINT 1 M PRI TINi = ; X ( 9) ; ” PRI TOUT = n :X(i 6 )‘ i 

1760 PRINT- 41 SEC COOLANT FLOW (LB /HR) * u ; X ( 14 ) : i ~ 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


TIN p ** ; X( 10) 
FLOW RATE ( CFM) 
“ ; X(3) ; " TDP 


PRI TOUT = V ; X ( 1 6 ) i ' M f‘ ' 
„ " ;X(20) * : 7 -» ] . , ; - ■ I ■ ■ 

. i X(2 ) ;. M JLQfitL-JbjS (51 : P R t NT 


780 PRINT Vq LATENT t= “;X(24): i !. 1 

PRINT "Q SENS “ ” ; X ( 2 3 ) ; ■ ' ' ' ' i- 

■ PRINT ”Q TOTAL “ M ;X(13) ^ | 

790 PRINTUSING 800 * X,( 19 ) , X ( 2 7 ) , U ! 

.800% MAC => -HHHHt •##’ HAH = -f# ### • # & U A 

810 SELECT: PRINT 005 : ‘ ■ ;■ - { 

8 20 GOTO 960 * 1 -—4-:- , 

8 30 DEFFN ’ 01 (El , Ml) < • 1 . ] i : 

,840 IF E 1 [ Ml THEN 850.: E I “Ml'- , 01 ! ..... I . 

850 IF Ml J 1 THEN 860: IF Ml[l THEN 8 70: GOTO 880 -..I'-.: 
860 K=»M1 / (Ml - 1 ) *LOG ((1-El/Ml)/ (1-El)) :G OTO 890 -f 
870 K=M1/ (1-MI) *LOG( (1-El) / (1-El/Ml) ) :GOTO 390 r ' i 
880 K= E 1 / (1-El) 1 i . j ■ ■' 

390 RETURN: ^ 1 ■ -* J ' — 

900 DEFFN '02 (M2 ,K2) . 

910 IF M2 j 1 THEN 920:IF M2 [ 1 THEN 930:G0T0 940 : *!'! 

920 Cl-EXP,(K2*(M2-l)/M2);El«(l-Cl)/(l/M2rCl) ;GOTO, 950 
930 Cl = EXPi(K2*(l-M2)/M2) :E1=(1-C1)/(1-C1/M2) : GOTO : $50 
940 El = K2/ (lrfK2) ' ' • . ■ ;■ ' ■ ! ; • M . 

950 RETURN’ 4 ' 

960 PRINT : STOP " FOR: NEXT CASE: KEY CONTTNUE" : GOTO 60 


•El)/ (1-El/Ml)) :GOTO 


940= ' ; ' . - i 

: G OT O.. 9.50..: J... 

: GOTO 950 ' 
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R5ECS ARS GAS LOOP AP ROUTINE 


File Name "ARS DP" 


Abs tract "ARS DP" calculates the corrected (59°F, 29.92 in Hg) 
pressure drop through the Hanklton Standard supplied 
RSECS hardware. The program is designed to be used with 
a WANG 2200 — series computer system. 

Program Description 


By inputting total RSECS air flow and the number of RS-11 fans opera- 
ting, the program will calculate the corrected pressure drop through 
the RS-193 Filter Package, the RS-191 ARS Fan Package, the RS-190 
C0 2 /Temperature/Humidity Control Package, the 350-M heat exchanger, 
and the ARS outlet duct. The results are displayed on the CRT. 

A program listing. Table XIII, is enclosed for reference. 
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DIVtSO* OF UNITED AlRC»A^T CO#W^>»ATtON 

Standard fi e 


: Table XIII 
PROGRAM LISTING 

I ; i : ' ; - ' • 

10 ; JOT;- RSEOS GAS LOOP PRESSURE PROP • ! I ! . 

20 - INPTJT ; RS-11 1 FANS- OPERATING = 9, FI ’ . ' ' j 

, ,;30.. .Ilte.’.’TOTAL; AIR .FLpM (CFII) .* ”,01 . . ..... 

40 . RFlf - RS- 1 , 03 ! • 

50 Pif(*076$/. 07o4)*{. 0235*01! 2/173! 2+. 3*01 /i 67) 

. ,.60 RTjft. - .. .RS-191L. ' : . I. ' 

70 P2t(. 0765/. 0709)* (.00364*01! 2/1 73! 2+.61+. 11 * (or/FI’) ! ?/500* 7 

,+*-02055*01! |/l 72 J 7) 

.. .30 KEKl- .„SS-190 • .; ; \ . 

°0 PI* (.0765/ . 0700)* (.0685*01 ! 2/173! 2+. 91 6 6+. 0123*01! 2/173! 2) 

ion rem - outlet one? 

ilio P.4* (. 07 65/. 0709) *(.0047.3*0112/1 73 J, 24-1 . 0 * 01 ! 2/700! 2 ) 

, 120 REM - 350-H TJX ’ 

130 ci4+.9!296i;1736E-4 : C2=+.3O63595B064E-4 : 

i- ... T 1.C3#.. 11961332.749nE-5 ;... C4~--. 1175465 7-09E t 7 : 

; C5f+. 703 63566 P3.tr.--?. O'; C6--. 2362255329320-17 
- 140 C7++.4105 7121725E-I5; C0«=-,2B70 . c >107365$e- 1B 
.1^0 P5i(..0765/.0709)*9.9* (Cl+C2*(ni/ .iU5)+C3* (01/ ,015) ! 2+ 

; i . ; ! o4*<oi/ . ns j * 3+054 (H- 1 -/ . bis) ! a+c6*(oi/ . si 5 ) j 5 + 

1 |07* (01/ . 815) ! ( 01 / 4l5) ! 7) 

.. _.li6a..:R644^ . 26 A 096X1 5 . ..... ; ■ 

, 170 P 7=fPl+P 2+P 3+P4+P 6 : ; 

130 PRINT; : i I . | . 

. ion print. . . „ ' ; 


200 PRINT "P.S-.193 (IN. H20) = " ; pr ‘ 

210 PRINT "RS-1P1 OP • : (TN- H20Y « " ; ?2 j 

220 .PRINT.. PRS^IQO. lip H20) .* " j.l?3 J 

230 PRI'TT "350-M ilt OP ' ; (IN R20) - M ;P6 

240 PRINT "OUTLET OTIOT 01? (in H20T *= 

250 PRINT -4- -- _____ 1 

260 print "TQTAL OP ’ ' : (in FEW *= ";P7 

270 }NIO 
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i-OatWl a ? k>jv 


GENERALIZED PLOT PROGRAM 


File Name ’’Plot" 

Abstract ’’Plot” uses the WANG 2200 flat bed plotter to automate 

production of plotting of any desired set of data. This 
program can plot point by point or plot a desired func- 
tion in equation form, and in addition, completely label 
the resulting plot in any desired format. 

Program Description 

"Plot” uses the WANG 2200 flat bed plotter and the WANG 2200 minicom- 
puter system commands to produce plots of data or equations. As sup- 
plied, the WANG had no software to run the plotter; program "Plot" 
provides this function. 


Required inputs are requested on the CRT and responses are keyed in 
followed by keying "execute”. 

Available options of this program are: 

1. Point by point plotting. 

2. Equation plotting. 

3. Matrix point plotting. 

4. Regression analysis plotting. 

For user reference the following items are included: 

Table XIV Description of input requirements for program and plotter 
set up procedure 

Figures Samples of results of program use in different modes 


15 - 17 

Table XV Program listing. 
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Table XIV 

PLOTTER SETUP AND PROGRAM INPUTS 
Plotter Setup and Program Inputs 

This example is for operation where the user has generated a set of 
data points in some other program (RSECS), stored them in an array 
and a plot of the points is desired. 

Initially the user must do two things; 1) set up the plotter and 
2) decide what type of plot is wanted. 

1. Plotter Set up 

* set plotter power switch in "on" position 

* set pen switch in "down 1 ’ position 

* set chart switch in "release" position 

insert paper - line it up with bottom ridge and ridge on left 
of plotting surface 

* set chart switch in "hold" position 

using control knobs set pen at 0,0 zero reference position and 
press check button. Press scale adjust check button and set 
pen at 10,10 using control knobs, then press scale adjust check 
button again. 

2. Type of Plot 

Determine desired location of axis intersection point on page 
Pick X axis’s increment for major divisions (units/in) 

* Pick Y axis increment for major divisions 
Pick X and Y axis ranges 

Pick X and Y axis labels 
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Table XIV 


PLOTTER SETUP AND PROGRAM INPUTS (CONTINUED) 


Example: 



2.5 

Position 2,2 

2.0 

X axis unit/in 2 

1.5 

Y axis unit /in .5 

1.0 

X axis range 0,8 

.5 1" 

Y axis range 0,2.5 

0 


0 2 5 5 E ^ 


3. Now proceed to answer questions that appear on the CRT. 
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u 

A Iftr.H A 

ft® 

Table XIV 


PLOTTER SETUP AND PROGRAM INPUTS (CONTINUED) 


QUESTION 
ON CRT 

TYPED IN 
RESPONSE 

DESCRIPTION 

X axis increment 
units/in? 

2 


Delta between major 
divisions on X axis 

Y axis increment 
units /in? 

.5 


Delta between major 
divisions on Y axis 

Location of axis 
intersection 
(position on page in 
inches - X, Y) ? 

2,2 


Location of 0,0 
point on plot is 2" 
over and 2" up from 
pen reference point 

Limits of X axis 
(min value, max value) 

0,8 



Limits of Y axis 
(min value, max value) 

0,2.5 



X, Y values at 
intersection 

0,0 



X axis label 

Delta 

point 

dew 

(F) 


Y axis label 

HoO flow 
Lb /Hr 


Location of X axis 
labels 

(l=above, 2=below) 

2 



Location of Y axis 
labels 

(l=left, 2=right) 

1 



Plot points or curve 
(l=point, 2=curve) 

1 


Purpose is to plot 
points generated by 
previous program 

Desired plot symbol 



Entering nothing 
causes centered dot 
to be used as plot 
symbol 

j 
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Table XIV 


PLOTTER SETUP AND PROGRAM INPUTS (CONCLUDED) 


QUESTION 
ON CRT 

TYPED IN 
RESPONSE 

DESCRIPTION 

Are data points to 
be loaded from array 

1 

Array was loaded 
for previous program 

First and last points 
to be plotted 

1,15 

15 points were gen- 
erated and are to be 
plotted 

Key continue to 
plot points 

Continue 

Starts plotting of 
points 

Do you wish to 
connect points 
with line segments 

1 

Connects data points 
to form desired 
curve 


Reset 

End of plot routine 

Do you wish to add 
labels to plot 
(0=no, l=yes) 

1 

Activates portion of 
program that makes 
plotter act like a 
typewriter 

Desired character 
size 

1 

Selects size of 
characters for la- 
bels 

(smallest 3 1, 
larges t- 10) 

Do you wish to 
continue plotting 

0 

Ends program 

. 
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2 . 50 - 


T 


2 .00 1 


i 


1.50 


1.00 


t 


.500 


. 000 * 


.000 


X 


X 


X 


X 


X 


-H , 1 — 

2.00 4 - . 00 6.00 

FLOW < LB/HR) 


FIGUBE 15 SAMPLE PLOT 1 


8.00 
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FLOW (LB/HR) 

. 000 2.00 4* . 00 B . 010 



FIGURE 16 SAMPLE PLOT 2 
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FIGURE 17 SAMPLE PIDT 3 
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Table XV 
PROGRAM LISTING 


10 REM SUB ROUTIN' E ’’PLOT" 

20 COM X9(100) ,Y9 ( 100) ,C( 10) ,X$25,Y$25 ,P$1 
30 DEFFN 1 00" PLOT { " 

40 DEFFN * 01 "CONVERT" 

50 SELECT PRINT ■ 005 : PRINT HEX (03) 

60 PRINT : PRINT " WANG 2200 GENERAL PLOT ROUTINE ":PRINT 

" DEVELOPED BY ’WILD’ BILL AYOTTE ( 9 / 7 4 ) " : P R I NT : PRINT 

70 INPUT "X AXIS INCREMENT (UNITS / IN) ", X0 
30 INPUT "Y AXIS INCREMENT (UNITS / IN) ", Y0 

90 PRINT "LOCATION OF AXIS INTERSECTION" : INPUT "(POSITION ON PAG 
E IN INCHES- X Y V XI Y1 

100 INPUT "LIMITS OF*X AXIS (MIN VALUE, MAX VALUE) ", S 1 , S2 
110 INPUT "LIMITS OF Y AXIS (MIN VALUE, MAX VALUE) ", T 1 , T2 
120 INPUT " X , Y VALUES OF AXIS INTERS ECTI ON" , Cl f C2 
130 INPUT "X AXIS LABEL", X$ 

140 INPUT "Y AXIS LABEL", Y$ 

150 Fl= 100 . /X0:F2=100. /YU 

160 GO SUB 500 

170 PLOT [1, ,C] , [, , S ] 

130 INPUT "PLOT POINTS OR CURVE ( 1= POINT , 2 « CURVE) " , Ul 

190 IF Ul=l THEN 310 

200 PLOT [ , ,R] , [ 1 0 0 * X 1 , 1 0 0 * Y 1 , U ] 

210 X4,Y4,E,E3,E4 ,EC,E8,E7=0 : X$-" " 

220 INPUT "DESIRED PLOT RANGE (MIN AND MAX VALUES) " tfl t V2 : INPUT 
"DES IRED PLOT INCREMENT” , D 

230 STOP "INPUT EQUATION TO BE PLOTTED ON LINE 250 THEN KEY RUN 
240" 

240 FOR X = W1 TO W2 STEP D 

250 Y=C(1)+C(2) *X+C (3 ) *X I 2+C (4 ) *X ! 3+C ( 5 ) *X ! 4+C ( 6 ) *X ! 5+C ( 7 ) *X ! 6 
260 X5=X-C1 ;Y5=Y-C2 

270 IF X[]tfl THEN 2 8 0 ; U 1= 1 : GOSU B * 02 (X5 , Y 5 , X4 , Y4 ) : Ul* 2 : GOTO 290 
280 COSUB 1 02 (X5 , Y5 , X4 ,Y4) 

290 NEXT X 

300 PLOT [ , , U ] : PLOT [ , , R ] : GOTO 1350 

310 X$=" PRINT : PRINT : INPUT "DESIRED PLOT SYMBOL" , X$ : K*1 : X4 ,Y 
4=0: INPUT "ARE DATA POINTS TO BE LOADED FROM ARRAY (NO=0 , YE S* 1 ) " 
,D: IF D - 1 THEN 340 

320 PRINT :PRINT "INPUT DATA POINTS (STOP PLOTTING BY SETTING X 
Y=N, N) PRINT * 

330 INPUT " X , Y = " ,X9$,Y9$: IF X9$ = "N"THEN 410:C0NVERT X9$ TO X 9 ( 
X) : CONVERT Y9$ TO Y9(K) :GOTO 360 

340 PRINT : INPUT "FIRST AND LAST DATA POINTS TO BE P LOTT ED " , K , K5 


350 STOP "KEY CONTINUE TO START PLOTTING POINTS IN ARRAY" 

360 X=X9 (K) -Cl : Y=Y9 (K) -C2 :X4 , Y4 = 0 

370 IF K ] 1 THEN 380:PL0T [ , , R ] , [100*X1,100*Y1,U] , [F1*X,F2*Y,U] 

[ , ,0] , t , ,x$] : GOT 0 390 
330 GOSU13 ' 02 (X, Y, X4 ,Y4) 

390 PLOT [-X*F1 ,-Y*F2 ,U] 

400 K=K+1 : IF D = 0 THEN 330:IF K]=K5+1 THEN 410:GOTO 360 

410 INPUT "DO YOU WISH TO CONNECT PLOTTED POINTS WITH LINE SEGME 

NTS ( YE S= 1 , N0 = 0 ) " , Q 

420 IF Q = 0 THEN 1350: INPUT "FIRST AND LAST POINTS TO 3E CONNECTE 
D",L8 t L9 

4 30 X4 , Y 4 , E , E 3 , E 4 , E 6 , E 3 , E 7 = 0 : U 1 = 2 : PLOT [ , ,Rj , [ 100*X1 , 100* Y 1 , U 1 
440 FOR I = L3 TO L9 ’ 


450 X*X9(I)-C1 :Y*Y9(I)-C2 

460 IF I [ j L 3 THEN 470 : Ul«l : COSUB 1 0 2 ( X , Y , X4 , Y 4 ) : U 1* 2 : GOT 0 480 
4 70 GOSUB ' 0 2 ( X , Y , X 4 , Y 4 ) 

430 NEXT I 

490 PLOT [ , , U ] : PLOT [,,R]:GOTQ 1350 
500 SELECT PLOT 414 


510 REM THIS SUBROUTINE DRAWS AND LABELS AXIS 
520 PLOT [1, ,Cj , [12, ,S] 

530 INPUT "LOCATION OF X AXIS LABELS ( 1= ABOVE , 2= BE LOW) "LI 
540 INPUT "LOCATION OF Y AXIS LABELS ( 1= LEFT , 2 * RIGHT) " L 7 
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Table XV 

PROGRAM LISTING (CONTINUED) 


550 A1=F1*ABS(S1-C1) : A2*F1*ABS(S2-Cl) :3I*F2*ABS(T1-C2) :B2=F2*A3S 
( T2- C2 ) 

560 PLOT [ , ,R] , [10Q*Xl,100*Yl,Uj , [ -A1 , 0 , V ] , [ A1+A2 , 0 , D] , [ -A2 , -B1 , 
U] , [0 , B1+B2 , D] 

570 M5 = (ABS(S1-C1)+ABS(S2-C1) ) /X0:N5»(ABS(Tl-C2)+AB$(T2-C2))/Y0 

530 K= 0 

590 S 3= S 1- X0 

600 PLOT [ - 3 , - ( B 1+B 2 ) , U ] 

610 FOR 13 = 1 TO N 5+1 
620 PLOT f 6 ,0 , J) ] , f , ,U] 

630 IF I3=N5+1 THEN 640:PLOT [-6,F2*Y0,U] 

640 NEXT 13 

650 PLOT [-(Al+3) ,-(B2+6) ,U] 

660 FOR 14=1 TO M 5 + 1 
67 0 PLOT [0 , 12 ,])],(, ,UJ 

6 30 IF 1 4 = M5+1 THEN 690 : PLOT [ F1*X0 , -12 # U J 
690 NEXT 14 

700 IF Ll=2 THEN 710:PL0T [ - (A1+A2+2 4 ) , 20 , U ] : GOTO 720 
710 PLOT [-(A1+A2+24) ,-36 ,U] 

720 FOR 1=1 TO M 5+1 

7 30 IF I ] M 5 + 1 THEN 340 
740 S3* S 3+XO 

750 IF ABS (S3) ] =1000. THEN 7 70 :IF A 0 S ( S 3 ) ] = 1 00 . THEN 730:TF A6S( S 

3)3=10. THEN 7 90 : IF A3S ( S 3 ) ] -1 . THEN 300 

760 CONVERT S3 TO S 3 $,(-.//////): GOTO 310 

770 CONVERT S3 TO S 3 $ , (-/////'//) : G OT 0 810 

780 CONVERT S3 TO S 3 $ , (-#////*) :GOTO <310 

790 CONVERT S3 TO S3$ ,(-##•#): GOTO 810 

300 CONVERT S3 TO S 3 $,(-#•##): GOTO 810 

810 IF K [ ] 0 THEN 820: PLOT [ ## S3$j:GOTO 840 

.820 IF S3[]C1 THEN 330:PLOT [F1*X0 , 0 , U ] : GOTO 840 

830 PLOT [ (F1*X0)-60,0,U] , [ , ,S3$] 

840 X= K+l : NEXT I 

350 IF L2=l THEN 860:PLOT [- ( A2+20) , 0 , U ] : GOTO 870 
860 PLOT [-(A2+I00) ,0,U] 

870 IF LI = 1 THEN 880:PLOT [ 0 , - ( B 1- 31) , U ] : GOTO 390 
880 PLOT [0 (Bl + 24) , U j 

8 9 0 K = 0 

900 T3=T1-Y0 

910 FOR 12 = 1 TO H 5 + 1 

920 IF 12] N 5 + 1 THEN 1030 

9 30 T 3 = T 3 + Y 0 

940 IF AJJS (T3) ] =1000 . THEN 960:IF ABS (T3 )] *100 . THEN 970:IF ABS(T3 

) 1 = 10. THEN 980: IF ABS (T 3 ) ] = 1 . THEN 990 

950 CONVERT T3 TO T3$ f (-.##//): GOTO 1000 

960 CONVERT T3 TO T3 $ , ( - # W) : GOTO 1000 

9 70 CONVERT T3 TO T3 $,(-##//•): GOTO 1000 

9 SO CONVERT T3 TO T3 $ , (-##•//): GOTO 1000 

990 CONVERT T3 TO T3$ ,(-#•////): GOTO 1000 

1000 IF K [ ] 0 THEN 1010:PLOT (,,T3$]:G0T0 1030 

1010 IF T 3 [ ] C 2 THEN 1020:PLOT [ 0 , F2 *Y0 , U J :GOTG 1030 

1020 PLOT (-60, F2*Y0,U] , ( , ,T3$] 

1030 K=K+1 : NEXT 12 
1040 PLOT [,,R] 

1050 IF X$ = * " THEN 1110: PLOT ( 1Q0*X1 , 10 0*Y 1 , U ] , [ - A1 , 0 , C ] 

1060 IF Ll= 2 THEN 1070:PLOT [ 0 , 50 , U ] : GOTO 1080 
1070 PLOT [0,-60, U] 
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Table XV 

PROGRAM LISTING (CONCLUDED) 


1080 IF A2[]0 THEN 1090:PLOT [ A 1 / 5 , 0 , U ] : GOTO 1100 
1090 PLOT [A1+A2/5 ,0,U] 

1100 PLOT [ X$ ] 

1110 IF Y$« ft " THEN 1180 

1120 PLOT [ > »R] » [ 1 0 0 * X 1 , 1 0 0 * Y 1 , U ] , [0.-I31U] 

1130 IF L2= 1 THEN 114O:PL0T [ 9 0 , Q , l) ] : GOTO 1150 
1140 PLOT [-90,0, U] 

1150 IF B 2 [ ] 0 THEN 1160:PLOT [ 0 , 2 * B 1 / 3 , U ] : GOTO 1170 
1160 PLOT [0,B1+B2*2/3,U] 

iiJ8 

1190 DEFFN*02(U,V,X4,Y4) 

1200 X3=U:Y3=V 

1210 D1=X3-X4:D2=Y3-Y4:X4~X4+D1:Y4=Y4+D2 

1220 IF Ul=2 THEN 1 230 : PLOT [Fl*Dl,F2*D2,U] , f ,D] [, ,X$] , [ ,U] 

:E3-INT(F2*D2) : E7=INT ( Fl*Dl ) :GOTO 1340 J,t " J 

1230 E1«F2*Y3--INT(F2*Y3) 

1240 E=E+E1+E4 

1250 P8=F2*D2+E : P9=INT (PH) 

1260 E5=F1*X3-INT (F1*X3) 

1270 E6«E6+E5+E8 

1280 S8=F1*D1+E6 : S9= INT( S3) 

1290 PLOT [ S 9 , P 9 , D ] 

1300 E 3 = £ 3 + P 9 
1310 E4=F2*Y3-E3 
1320 E7«S9+E7 
1330 E8=F1*X3-K7 
1340 RETURN 

1350 INPUT ”DO YOU WISH TO ADD LABELS OR COMMENTS TO PLOT (0*NO 
1-YES) , G * 

1360 IF G = 0 THEN 1480 

1370 INPUT ’’DESIRED CHARACTER SIZE (NUMBER FROM 1 TO 5)” K 
1380 PLOT [K, ,CJ , [ , ,S] 

1390 KEYIN P$, 1410,1420 
1400 GOTO 1390 

1410 IF F$ = HEX(Of>) THEN 1430 :TF P $*HEX (02) THEN 1440:IF P$ = HEX(ng) 
THEN 1450 : PLOT [ , , P $ ] , [ 1 3 *K , , U ] : GOTO 1 390 * 

1420 IF P $ = HEX ( 0 0 ) THEN 1460:TF P $- l-i EX ( 01 ) THEN 1470 : 

IF P$ = !IEX(02) THEN 1370 :GOTO 1480 
14 30 PLOT [ 0 , -20*K, U ] , [-9 99 , 0 , U] : GOTO 1390 
1440 PLOT [ 13*K, 0 , U ] : GOTO 1390 
1450 PLOT [-1J*K,Q,UJ :GOTO 1390 
1460 PLOT [ 0 , 20*K , U] : GOTO 1390 
1470 PLOT [ 0 , -2 0*K, U] : GOTO 1390 

1480 INPUT ” DO YOU WISH TO CONTINUE PLOTTING ( 0* NO . 1* YES ) " G* 

IF G — 1 THEN 130 * * 

1490 END 
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